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SHOW_RMS1 == Display RMS Data Structure 
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s 
SHOW_RMS == Display current default RMS Data Struct. 


SHOW RMS_OPT 
RMS_RANDCER == SHOW RMS exception handler 
SHOO FAB -- Print out useful contents of IFAB 
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Display RM 


Copyrigh 


Support fields added to IFAB and IRAB for journaling, 
including the MJB (Miscellaneous Journaling Buffer). 
Add some new GBD and GBH fields and one new IFAB field. 


v03-020 KBT0534 Keith B. Thompson 11-Jun-1983 
Fix some FWA flags 


v03-019 KPLO001 Peter Lieberwirth 30-May-1983 
Eliminate references due to obsolete RJB fields. 


R at 
t ic 
9 544 
9 ; Facility 
§ System Dump Analyzer 
¢ Abstract 
$0 § : This module contains code to dump most internal (and some user) 
009 f ; RMS data structures. 
00 ip ; Environment 
909 i Native mode, User mode 
44 43; Author 
000g K. E. Ki September 1980 = July 1981 
3 . E. Kinnear eptember ~ 
0000 46: Acs ed 
00°0 47 ; Modified by 
0000 48 ; 
0000 49 ; V03-030 RASO271 Ron Schaefer 14-Mar-1984 
4 29 : Yet more FWA changes. 
0000 3g : V03-029 RASC234 Ron Schaefer 31-Jan-1984 
444 7 ; More FWA changes for input sticky searchlists. 
0000 «55: v03-028 RASO230 Ron Schaefer 5-Jan-1984 
it 2$ : Reflect significant FWA structure changes. 
0000 «= 58: v03-027 $Hz0002 Stephen Zalewski 06-Dec-1983 
i444 23 ; Add flag definition to BLB flags. 
0000 61; V03-026 JwT0141 Jim Teague 14-Nov-1983 
4h 6¢ : Change IFB$V_RUM to IFBSV_ONLY_RU 
0000 «64: v03-025 KBT0571 Keith B. Thompson 24-Jul-1983 
4 : Track RMS changes 
0000 : v03-024 $HZ0001 Stephen H. Zalewski 26-Jun-1983 
3008 : Remove undefined symbol. 
0000 : v03-023 KBT0550 Keith B. Thompson 24-Jun-1983 
0000 : Fix KBT0548 
$09 : v03-022 KBT0548 Keith B. Thompson 23-Jun-1983 
$ ; More FWA changes 
: 0 ; v03-021 KPLO002 Peter Lieberwirth 11-Jun-1983 
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v03-018 f k0030 E. Kinne 15-Apr-1983 
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x LBN display th WCB to deal with relative 
salune numbers in oe part of LBN. 


DASO003 d Solomon 11-Mar-1983 
Display RLBSW_ Pattee RLBSB. TMO (new with timeout on 
record lock). “Formatting changes (add form feeds). 


RASO123 Ron Schaefer 8-F eb-1983 
Fix several display bugs and update to reflect MANY, 
MANY RMS structure changes. 


TMKO0004 Todd M. Katz 22-Jan-1983 
Make a change to TMKO0003. 
TMKO003 Todd M 21-Jan-1983 


Add the definition of the *Oits IRB$V_RU_UPDATE and 
IRB$SV_NO_Q_WAIT to the IRAB bookkeeping bit table. 


pg pe Todd M. Katz 07-Jan-1983 


isplay IRB$L_OLDBUF and IRB$L_RECBUF. Add the Gi splaying 
of the bit field IFBSB_RECVRFLGS. Add the definition of the 
bits TRBSV -RU_DELETE and TRBSV -RU_LUNDEL to the IRAB bookkeeping 
bit table. 
RASO112 Ron Schaefer 22-Dec-1982 
Change s 


Yrosu DEVBUFSIZ -> IFB 
IFBSWLASDEVBSIZ -> IFB 
a 


MCNOO01 Maria del C. Nas 29-0c t-1982 
Eliminate COUNT_DUP, NORFA, and PRG_D_RFA from IDX 
table to reflect changes made to RMSINTSTR.MDL. Add 
KEY_COMPR to IDX_CHR1. 


KBT0380 Keith B. Thompson 21-0c t-1982 
Ay ot Me, new fields in asb and display all BIDs and BLNs 
n decima 


$L_DEVBUFSIZ 
BSL_ASDEVBSIZ 
r 


KBT0362 Keith B. Thompson 8-0c t-1982 
Change asb$b_ mn to a word 

KBT0320 Keith B. Thompson 8-Sep-1982 
Make changes for new file sharing structures, and 
change irb$b_srchflags to word and rlb$w_owner to long and 
add ifb$v_stall_lock, irb$v_dup_key and Trb$v_last_gt 
RASO0094 on Schaefer 27-Aug-1982 
Delete symbol IRBSB DIFF * CHAR. 

CwHOO01 CW Hobbs ABE -1982 
Change symbol FWASB_UNDERLINE to FWASB _UADER EV 
TMKO001 Todd M. 18-Ju 


-1982 
Add to the table SCH can’ .  soterens to the “bit IRBSV_DEL_SEEN 
and to the table IRBBKP_CHR a reference to the bit IRBSV_CON_EOF 
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and the bit IRBSV_UPDATE_IF. 


Do ag rint the field IRBSL_NRP if the file is an indexed 
file. The field IRBSB_NRP_KREF no longer exists so don't bother 
brteting it either. 


t out the fields IRBSL_NEXT_VBN, IRBS$W_NEXT_ID, 
; uP VBN, IRB$W_PUTOP_ID> IRBSL_FIRST_VBN, and 


ooo won 
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Se 

IRBSL_CUR_VBN, IRBSW_CUR_ID 1RBSL POS_VBN 

1D 5 RBS UDR. VBN, IRBSW UDR I [Ras SIDR _V8N, 
_16, IRBSQ_CUR_COUNT and™ YRNSB. peur 

me 

e 


Ling in Hy vibe in which thin s are printed 
pAygeting in gh . . 


T0057 David Thiel 18-Jul-1982 
x references to VRESV. Usp NRP, IFBSL_NRP “List, 
B$B_NRP_KREF Lagst _NRP_PTR which were deleted 

n RMSINTSTR VO3-011 


V03-003 MLJ0084 artin L. Jack 30-Mar-1982 
Fix reference me, iF B$B_KBUF SZ. 


v03-002 KEK0027 E. Kinnear 11-Mar-1982 
Add error messa e3 for no RMS structures and premature 
termination of tructure dump. Also update IRAB, 
GBD, and GBPB to Mem INTStR v02-085. 


v03-001 KEK0022 K. E. Kinn 3-Feb-1982 
Correct buffer peperitan in GBD summary. 


v03-004 


—— FO = POO De 


V3A Source Merge 


v03-010 pole MA E. Kinnear 66-Jan-1982 
d FWA, GBH, oa GBD summary dump routines. 


v03-009 KEK0016 K. E. Kinn 17-Dec-1981 
Improve tracing code for global buffer debug. 


v03-008 EEKOOTS E. Kinnear 11-Dec-1981 
Remove READAHEAD” flags from cache and BLB flags. 


v03-007 ae AE K. E. Kinne 23-Oct-1981 
New BLB flags, make AVLCL show for all orgs, ane FRBPTR 
for rel and indexed orgs. 


V03-006 KEK0012 K. E. Kinnear 9-Sep-1981 
Add trace support and initialization so that it 
fails quietly on no-P1 space processes. 


v03-005 KEK0011 K. E. Kinnea 2- oo 
Fix references to $BCBDEF which has gone awa 
Remove. rene to RLS$V_KEEP_ACC which has “also 


Wir se sequential problem in SHOW_BLB_SUM. 
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v03-004 KEK0010 Kinn 26-Aug-1981 
React to changes. te. internat "RMS structures for 
Lobal nat fering. Support for BLB, and changes to 
FAB and IRAB. Preliminary support for GBD, GBH, and 
TRC structures. 
V03-003 KEK0009 . | 15-Aug-1981 
Up erate for chenees n tre. iRB, IDX for prolog 3 
es 


React to changing RMS structures, RFA_ID 
IRAB went from a word to a byte. 


| 
vO3-002 KEK0005 K. &. Kinnear \~Aug1981 


Display RMS Data Structures : 1g=sEb= 138% 04:98:43 AX/VM 
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16 -SBTTL Declarations 
13 ; Symbol Defintions 
00 0 
3? 1 SCHFDEF ; Condition Handling Definitions 
¢ SOPTDEF ; Parsing options 
000 i STPADEF 3; TPARSE definitions 
0 
0000 § ; RMS and SYSTEM definitions 
8 e 
0000 9 SASBDEF ; Asynchronous context block 
44 0 $BDBDEF ; Buffer descriptor block 
00 1 SBLBDEF ; Bucket lock block 
0000 3 $SCCBDEF 3; Channel control block 
8888 $SCSHDEF ; Cache control bits 
000 34 SOCDEF ; Device class and type defns 
0000 3 SDDBDEF ; Device data block def 
0000 6 SDEVDEF ; Device characteristic bits 
0000 37 SORCDEF ; Directory cache definitions 
0000 38 SDYNDEF 3; System control block idents 
0000 39 $F ABDEF ; File access block 
0000 40 $F CBDEF ; File control block 
0000 41 SFWADEF ; File et work area 
0000 rt SGBDDEF ; Global buffer descriptor 
0000 4 SGBHDEF ; Global buffer header 
0000 ste $SGBPBDEF : Global buffer param block 
0000 45 SIDXDEF : Index Descriptor definitions 
0000 246 SIFBDEF : Internal FAB definitions 
0000 47 SIMPDEF 3; Process 1/0 control area 
0000 48 SIRBDEF ; Internal RAB definitions 
0000 49 SNAMDEF 3; Name access block 
0000 50 SPLGDEF : Prologue (VBN 1) of indexed file 
0000 51 SRABDEF ; Record access bloc 
0000 26 SRJBDEF ; Record journaling block 
0000 5 SRLBDEF 3; Record lock bloc 
0000 54 SRLSDEF ; Release bit definitions 
0000 55 SRMSDEF ; RMS message definitions 
0000 2$ $SFSBDEF ; Shared file sync. block 
0000 5 TRCDE ; Trace block definition 
0000 58 SUCBDEF 3 Unit control block defns 
8008 59 SWCBDEF 3; Window control block 
60 SXABDEF 3; Extended access blocks 
38 61 SXABFHCDEF ; XAB - file header 
0 6¢ XABALLDEF ; XAB - gs Loc at von 
op 6 SXABDATDEF ; XAB - date/time 
0 64 SXABRDTDEF : XAB - revision date/time 
8 65 SXABPRODEF ; KAB - protection 
96 SXABTRMDEF 3; XAB - terminal 
0 6 SXABSUMDEF ; XAB = indexed summary 
8 oe SXABKEYDEF ; XAB - indexed keys | 
B3 $° SMJBDEF 3; Miscellaneous Journaling Block 
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if -SBTTL Macro Definitions 


: Macro Definitions 


; GET -- Get a particular control block in memory. 


»MACRO GET BLOCK ,ADDR,ERRADDR BUFFER, ?LAB, ?LAB1 


.IF NB ADDR 
MOVAL ADDR,BLOCK=4 
BNEQ 
BRW ERRADDR 
LAB1: 
.ENDC 
.IF NB BUFFER 
PUSHAL BUFFER 
PUSHAL BLOCK 
.ENDC 
CALLS #1,GET_'BLOCK 
BLBS RO,LAB™ 
CLRL BLOCK=4 
BRW PRRADDR 
LAB: 


.I1F NB BUFFER 

HOVAB BUFFER,R2 

MOVAB BLOCK,R2 
NDC 

.ENDM 


fm ae ee ee) ee we ww wl wl eololololeololololeleleleleoleoleolele oleleolol ao! 


: SHOW -- Format a control block on the output file. 
-MACRO SHOW BLOCK ,BUFFER 


-IF NB BUFFER 
PuRRAL BUFFER 


PUSHAL BLOCK 
-ENDC 


OOoCoOCCOOCOCOCOCOOOCCOCSCOOOCSCSCOSCOSOSCOOSCO SOOO SOOSOSOOOOOCOOOOOOOOSOoOO 
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CALLS #1,SHOW_ "BLOCK 
.ENDM 


i: 
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TABLE Macro which subtracts a number from symbol values for 
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, oaee whose values are all over 32. 
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RMS 
v04-000 Macro ate 


RO TABLEM N,PREFIX,VALUES 
VALUE , VALUES 


E 

CT __RMSLIT,EXE,NOWRT 
IC \VALUE\ 
G 


wn 
wn 
on 


MAC 
- IRP 
> SAV 
«PSE 
ASC 
TRESTORE 

-LON "PREFIX" "VALUE '=<N> 

$$$ 

“END 
;LONG -1,=1 
“ENDM  TABLEM 


CASETBL macro, builds Lists of information which 
is indexed by specific values. 


7 CASETBL VALUES 
~ IRP VALUE , VALUES 


- SAVE 

:PSECT ~-RMSLIT,EXE ,NOWRT 
sASCIC \VALUE\ 

» RESTORE 

. $$$ 

-ENDR 

~-ENDM = CASETBL 


bad 
Sad 
wf 


; Macro to push and adjust 3 descriptor for an !AF FAO parameter. 


MACRO PUSHD2 VALUE . ADDRESS 
PUSH ADDRE ESS+4(R3) 

ADDL (SP) 

PUSHL ADRESS RS) 

.ENDM 
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: ; Macro to print the two longwords of a descriptor. 


OOooooCoooooooooooooooooooosoooooooooooooooooooooo 


-MACRO PRINTD BLOCK NAME 


OOOO Cooooooooooooooooooooooooooooooooooooooo 
MEAN 9 ODN NE WN 9 OD NAME WIN FO OD NAME WIN O OO NAUE WIN O OD NOU EWI $s > 
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PUSHL BLOCK’ (NAME +4(R3) 
PUSHL BLOCK' "NAME (R3) 
aif uyESS, THAN 6 ELENGTH CNAME) 
NAME’:  !XL - 
'XL> 
FF 
PRINT 2,<= 
NAME ' : XL - 
'XL> 
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~ENDM 


: Macro to print the two longwords of a descriptor and print out 
; the string pointed to by the descriptor. 
MUST BE USED WITHIN LOCAL SYMBOL BLOCK! 
: ONLY FOR USE IN SHOW FWA! 
; REQUIRES RS TO BE OFFSET FOR FWA DESCRIPTORS! 
RO DUMPDF NAME,?X 
TD FWASQ_ »NAM 
TSTL FWASQ™ 'NAME'(R3) 


x 
FWASQ_"NAME'(R3),R2 
CALLS #0,FWADD 


2h 
ee 


: Macro to translate bits for fields at the beginning of the FWA 
«MACRO FWABITS TAG 
MOVL #ALLOCSZ, (SP) 
MOVZBL FWASB ene FEGECEE (98SP? 
sabe fe TRANSLATE BITS 
evra rep thaadbeecnaeteente 


<> 
TAG'FLGS: 'XB !AS> 
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0000 
0 
0 
FFFFFFFE 8 
0000 4 
006 
006 
006 
006 
006 
00000000 0006 
0000 Q00A 
00C 
00Cc 
00C 
00¢ 
00¢ 
00000000 f 
00000000 0012 
016 
016 
016 
016 
016 
0000 00 8 
0000 00 
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-SBTTL Storage Definitions 
: Storage Definitions 


.PSECT SDADATA,NOEXE,WRT 
+ /DISPLAY Options 


RMS_DIS_OPT::.LONG OPTSM_RMSALL ; master options word 
RMS_IFI::.WORD 0 ; contains IFI value (O=all) 


; "real" options for main routine: SHOW_RMS1 


RMS_DIS_OPT1:.LONG 0 3; dynamic options word 
RMS_IFIT:.WORD 0 : dynamic ifi word 


: Temporary options work area 


RMS_DIS_TMP::.LONG 0 ; holds options from TPARSE !DISPLAY 

RMS_IFI_TMP::.WORD 0 ; holds IFI value from TPARSE !DISPLAY 
S_DIS_TMP1::.LONG 0 ; work area for !DISPLAY 

: General Temporary Data Storage 

IF I: «WORD 0 ; Current IFI on which we are working 

IFBS: -WORD 0 3; number of ifabs seen this run 

: Buffer areas into which are read the various control blocks from the dump. 

: ALL are in the format: 

; .LONG 0 

: LABEL: .BLKB- Length of structure 

: where the lLongword prior to the label contains the virtual address 

; of this control block in the actual dump, or 0 if block doesn't 

3 exist or couldn't be read. 


ASSUME IMPSC_NPIOFILES GE IMPSC_ENTPERSEG 


IFABTBL: .BLKL JRPOC Pier TLES* 
IFBTBLSIZ: .BLKL 


-BLKB FBSC_BLN 
IRAB: .BLKB  IRBSC_BLN_IDX 
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-LONG 0 LN 
AS 89 ee: “BERG BOBSC_B 
le Pe Bee 
fe 485 FUA: “LONG FABSC_BLN 
A OC3A ‘ ? FAB: -LONG RABSC_BLN 
69 ¢ A ; : RAB: -LONG NAMSC_BLN 
: e 636 oy on CBSC_LENGTH 
D3 CCB: "LONG NGTH#+512 
000 ODA 634 wea: “BLKB WCBSC_LE 
OOF re OSE 496 WCBEND: “BEKS  PCBSC_LENGTH 
ait) 36 iy 199° =e DX$C_FIXED_BLN¢32 
3 9 00 1 36 bY IDX: -LONG ASB$C_BLN_IDX 
$0 0 3 I 6 ASB: “PONG LENGTH 
0000128} A 303 -BLKB UCBSC_ 
Sooorsie 198 $04 ucB: “LONG DDBSC_LENGTH 
QOOO131E 131 05 DB: .BLKB 
Bo001s66 132 oF “BLE RLBSC_BLN 
SH 1 un tie fone 
SSH9 : BA 310 BLB: “LONG BDSC_BLN 
09000000 13c2 H eB gee 
00000000 1365314 cau: “TONG RJBSC_BLN 
Bantaen lace 19 f “BUKS TRCSC_BLN 
Spee eek St vee -BLKB 
00 1444 SE 18 LONG BSC _BLN 
Bo ee aan 6feee at : .BLKB - MJBSC_ 
90000009 149 $20 MB: 
000014¢ 14€2 521 
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oe ; -SBTTL Read-only Data Definitions 
14C 2 3 
14C¢ § : Read-only Data Definitions 
ae 
0000 : -PSECT RMS,EXE,NOWRT 
1 DEV_CHR: TABLE DEVSV_,<ALL,AVL,CCL.DIR,DMT.ELG,FOD,FOR,- 
j GEN, IBV, MBX.NET.ODV,RCK.REC,RND,RIM,SD1,- 
a ; SHR,SPL,SQD,SWL,TRM,WCK> 
¢ 5 NAM_CHR:TABLE NAMS$V_,<EXP_DEV,EXP_DIR,EXP_NAME,EXP_TYPE,=- 
o¢ : EXP_VER, GRP-MBR.HIGAVER,LOWVER, NODE ,PPF ,- 
C QUOTED ,WILDCARD,WILD_DIR,WILD_GRP,WILD_MBR,- 
0c 8 ILD_NAME ,WILD_SFD1,@ILD_SFD2>WILD_SFD3,- 
OC WILD-SFD4,WILD-SFD5 ,WILD-SFD6,WILD-SFD7,- 
oc8 40 WILD-TYPE .WILD-UFD,WILD_VER> 
0140 4g FAC_CHR: TABLE FABSV_,<BI0,BRO,DEL,GET,PUT, TRN,UPD ,EXE> 
O1E8 $44 RAT_CHR:TABLE FABSV_,<BLK,CR,FTN,PRN> 
0 19 546 BKP_CHR:TABLEM 32,1FB$V_,<BUSY,EOF ,PPF_IMAGE,ASYNC,ASYNCWAIT,ACCESSED,- 
0210 547 ANSI_D,ROC,DMO, SPL, SCF DLT 0,PPF_INPUT,NFS,~ 
0210 548 WRTACC MSE ,CREATE ,NORECLK,RW_ATTR, (MP, TEF,STALL_LOCK,- 
0 49 SEQFIL,SEARCH,RMS. STALL, RESTART ,F LLEFOUND, DAP_OPEN, DAP ,NSP> 
031 31 RECFLG_CHR: TABLE IFBS$V_,<RU_RECVR,AI_RECVR,BI_RECVR> 
033 38 JNLFLG_CHR: TABLE IFBSV_,<ONLY_RU,RU,AI,AT,B1,NEVER_RU> 
037 55 IRBBKP_CHR:TABLEM 32, IRBSV_,<BUSY,EOF ,PPF_IMAGE ,ASYNC,ASYNCWAIT,FIND_LAST,= 
037 36 PUTS. LAST,B10_LAST,BRO_SW-F IND, WRITE ,RAHWBH, SKIP_NEXT, ~ 
7 5 DUP, ONLOCK_RP7PPF_EOF ,PPF SKIP.PPF_FNDSV, IDX _ERR-RRV_ERR,- 
037 58 UPDATE ,UPDATE. IF ,ABOVELCKB, GBLOUFF >CON_EOF ,RAS_STALL;DAP_CONN, - 
0570 39 RU_DELETE ,RU_ONDEL ,RU_UPDATE,NO_Q_WAIT.PPF_ECHO,RESTART> 
se 61 BDB_CHR: TABLE BDB$V_,<AST_DCL,DRT,10P,NOLOCATE PRM, VAL , WF O> 
rt}: és ORG_TBL:CASETBL <Sequential Relative, Indexed> 
ifs 65 RFM_TBL:CASETBL <UDF,FIX,VAR,VFC,STM,STMLF ,STMCR> 
aes RFMORG_TBL:CASETBL <SEQ,REL,IDX> 
4F4 SPL_CHR:TABLE IRB$V_,<BKT_NO_LO,REC_W_LO,CONT_BKT,CONT_R,EMPTY_BKT,- 
ar 29 . DUPS_SEEN,BRT_NO,81G_SPCIT.SPL_TDX,EMPT_SEEN> 
ate as SCH_CHR: TABLE IRBSV_,<POSINSERT, SRCHGT ,POSDELETE ,NEW_IDX,SRCHGE ,~ 
24 3 NORLSRNF ,FIRST_TIM,PRM,OEL_SEEN,DUP_KEY,LAST_GT> 
BAC ¢3 IDX_CHR1:TABLE IDX$V_,<DUPKEYS, CHGKEYS ,NULKEYS, INITIDX, IDX_COMPR ,KEY_COMPR> 
sr 7 IDX_CHRO: TABLE IDX$V_,<DUPKEYS, 1DX_COMPR, INITIDX,KEY_COMPR,REC_COMPR> 
614 8 IDX_TBL:CASETBL <STRING, SGNWORD,UNSGNWORD , SGNLONG , UNSGNLONG , PACKED, ~ 
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v04-000 Read B iirverures See = 1384 1:48:62 VMS Macro V04-00 Page 


tions =SEP=19 SDA SRCIRMS MARS 1 
SGNQUAD , UNSGNQUAD> 
IDX_TBL1:CASETBL <V2_BKT,CMPIDX,NCMPIDX,CMPCMP, CMPNCMP,NCMPCMP ,NCMPNCMP> 
CCB_CHR: TABLE CCBS$V_,<AMB> 
AMODE_TBL:CASETBL <,Kernel,Executive,Supervisor,User,Invalid> 
WCBSHR_CHR: TABLE WCBSV_,<READ WRITE ,NOTFCP,SHRWCB,OVERDRAWN> 


WCBACC_CHR: TABLE WCBSV_,<NOWRITE ,DLOCK, SPOOL ,WRITECK, SEQONLY,WRITEAC,- 
READCR,NOREAD ,NOTRUNC> 


PRO_TBL:CASETBL <,R,W,RW,E,RE,WE,RWE,D,RD,WD,RWD,ED,RED,WED,RWED> 
FCB_CHR: TABLE FCB$V_,<DIR,MARKDEL ,BADBLK, EXCL, SPOOL, RMSLOCK> 
CSH_CHR: TABLE CSH$V_,<LOCK,NOWAIT,NOREAD ,NOBUF FER> 

RLS_CHR: TABLE RLS$V_,<RETURN,WRT_THRU,KEEP_LOCK , DEQ> 

RLB_CHR: TABLE RLBSV_,<WAIT,CR,PW,PR,CONV,LV2,FAKE, TMO> 
RLB2_CHR: TABLE RLBSV_,<TIMER_INPROG> ; RLBSW_FLAGS2 


OPT_CHR: TABLE OPT$V_,<IFB,IRB,1IDX,BDB,BDBSUM,ASB,CCB,WCB,FCB,FAB,- 
RAB,RCB,NAM,XAB,BLB,GBD ,GBH, TRC, BLBSUM, FWA, GBDSUM, RJB> 


BLB_CHR: TABLE BLBSV_,<LOCK,NOWAIT,NOREAD ,NOBUFFER,IOLOCK,DFW,WRITEBACK> 
BLB_TBL:CASETBL <NL,CR,CW,PR,PW,EX,??> 
GBH_CHR: TABLE GBH$V_,<CACHE_IN,CACHE _OUT,RLS_IN,RLS_OUT,QIO_START,- 


Q10_DONE, STALC, THREADGO,BLB_ENO,BLB_GRANT.BLB_DEQ,- 
BLB-BLOCK,F1,F2,F3,F4> 


OOCCCOCOCOCOCOCOOCOOOOOOOOOoOO 
COSINE NINA AAA AAA AAAOOOOAO 


OOOO 0OOCWMMMcMOo 
MMMM 2 9 9 2 | S000 OOH TD PP NINO 
POOPIE EEE EEE LOOOO OOOO DWDDDOOCDDOOCHOODOMWOMWMDDWOOCOCOLESS <ZD 


COOCCCOCOCOCOOCOOCOOCOOOOSOOOOOCoOOo 


9B 
98 GBD_CHR: TABLE GBD$V_,<VALID> 
9C PASS_CHR: TABLE FWASV_,<DUPOK,NOCOPY,SL_PASS,RLF_PASS,FNA_PASS,NAM_DVI,- 
H' EXP_NODE> 
AQ 1 FLD_CHR:TABLEM FWASB_FLOFLGS*8,FWASV_,<VERSION, TYPE ,NAME .DIR,DEVICE> 
a3 g WILD_CHR:TABLEM FWASB_WILDFLGS*8,FWASV_,<EXP_VER,EXP_TYPE,EXP_NAME ,WC_VER,- 
AS 4 WC_TYPE ,WC_NAME ,EXP_DIR,EXP_DEV> 
A? 6 PARSE_CHR: TABLEM FWASB PARSEFLGS*8,FWASV, ,<WILDCARD.NODE , QUOTED , GRPMBR ,~ 
arc f WILD_DIR> 
AAC ; DIR_CHR:TABLEM FWASB_DIRFLGS*8,FWASV_,<DIR1,DIR2> 
ACA 1 DIRWC_CHR:TABLEM FWASB_DIRWCFLGS*8,FWASV_,<WILD_UFD,WILD_SFD1> 
ADC g LN_CHR:TABLEM FWASB_LNFLGS*8, FWASV_,<LOGNAME , OBJTYPE ,NETSTR,DEV_UNDER,~ 
ADC 4 REMRESULT,F ILEFOUND, SYNTAX_CHK> 

1¢ 6 SL_CHR:TABLEM FWASB_SLFLGS*8,FWASV_,<SLPRESENT, CONCEAL_DEV,ROOT_DIR,- 
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RMS Display RMS Data 
v04-000 Read-only Data D 
BiC 637 
B4C 6 8 
B4C 
B7C 40 
B7C 4] 
BA4 et§ 
BAS 64 
BD4 644 
BDS 645 
BES 928 
BES 64 
BES 908 
BES 64 
OBES 650 
OBES 651 
OBFA $36 
0C11 65 
0C28 654 
0c31 655 
OC3A O28 
OC3A 65 
OC3SA 658 
OC3A 659 
Bc ga 660 
00000087 OC3A 661 


efinvtions: 


RJB_CHR: TABLE 
MJB_CHR: TABLE 
JNLFLG2_CHR: 
JNLFLG3_CHR: 


: Local Strings 


: Constant Data 


ALLOCSZ = 


16-SEP-1984 01:48:49 VAX/VMS Macro v04-00 
-SEP-1984 eet ESDAVSRCIRMS MARS I 


DFLT_MFD,EXP_ROOT> 
RJBSV_,<RU,BI,AT,AI ,OPEN> 
MJBSV_,<INIT,FORCE,FILE,SYNCH_SHARE> 


TABLE 
TABLE 


IFBS$V_,<VALID_AT,JNL,RUP,RU_RLK,DONE_ASS_JNL> 
IRBSV_,<VALID_AT> 


STRING <PIO$GW_IIOIMPA> 

STRING <RMSS$STRACE_DEPTH> 

STRING <RMSSTRACE_FLAGS> 

STRING <G> ; GBPB signal for BDBSUM 
STRING < > ; opposite of above 
Declarations 


135 


; size of data buf alloc’ed on stack 
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RMS Display RMS Data Structures 16-SEP-1984 :48:49 VAX/VMS Macro V04-00 Page 
v04-000 SHOU_RMS1 -- Display RMS Data Structures ~$ee = 1388 teers SDA. SRCJRMS.MAR; 1 . 
C3A = 663 -SBTTL SHOW _RMS1 == Display RMS Data Structures 
ai bee ie ad 
c A 666 : SHOW_RMS1 == Display RMS Data Stuctures 
: : 908 : Inputs: 
: : £76 None. 
bc ? ore : Outputs: 
o¢ A 676: RMS Structures displayed. 
ee 
OC3A ers -ENABL LSB 
Be A 678 SHOW_RMS1:: 
O3FC CSA 679 ~WORD “M<R2,R3,R4,R5,R6,R7,R8,R9> 
6D 0000139F "EF DE pe § 420 MOVAL RMS HANDLER, (FP) ; Establish handler for SHOW RMS 
56 QOOOO01A'EF 9E Beez eae MOVAB IFABTBL,R6 ; setup address for IFAB table 
OC4A 683; 
OC4A 684 ; Look up PIO$GW_IIOIMPA is SDA symbol table, so it may be redefined 
OC4A 685 ; for ITESTD. 
Beko 
00000018"EF B4 OC4A 688 LRW IFBS : no IFAB's found yet 
91 AF OF oc 28 689 PUSHAL PIOSTRING 3; argument for symbol_value 
00000000 'EF 01 FB OCS 690 CALLS #1,SYMBOL_VALUE 
59 51 DO OCSA 691 MOVL R1,R9 3 value (if any) in right register 
07 50 €8 OC5D $36 BLBS RO,5$ ; branch if ok 
59 Q0000000'EF DO 0C60 69 MOVL  PIO$GW_IIOIMPA,R9 t get address of image i/o impure area 
7 20 AD =~—E =oé0C67 694 5$ MOVAL IMP$W_ENTPERSEG(R9),R7 ; find table size 
0C6B 695 GETMEM (R7),TFBTBLSIZ ; get value 
2450 €9 OC7B 696 BLBC. — RO, 158 : uit if none 
_, |) ee eg ee ADDL #IMPSL_IFABTBL,R9 :; form pointer to table pointer 
0C81 698 GETMEM (R9),(R6) 3 get Pl space address _ 
1250 €9 OcBD $99 BLBC RO, 158 : 7f none, don't complain 
00000016'EF B4 O39 701 CLRW IF I : initialize IFI 
Stop 708 
OC9D 704 : Got a new table 
ae 
59 66 dO 44 £88 10$: MOVL (R6),R9 : get next Link to IFAB table 
w bead ope BNEQ 18$ 
00000018"EF B85 OcAz og 15$: TSTW IFBS : found any IFAB's? 
12 12 OCA 71 BNEQ 17$ : yes, don’t message 
OcAR 418 
CAA 714 : SIGNAL the fact that there are no RMS structures 
et ae 
4 at SIGNAL 0,NOIMGRMS ; no image RMS structures 
0629 31 OCBC fis 17$: BRW 900$ 
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RMS Display RMS Data Structures -SEP-1984 perivel Macro V04-00 Pa 
v04-000 SHOU_RMS1 -- Display RMS Data Structures Basset 1 83; 38:23 ESDALS acTRAS. MAR; 1 ” 
57 ee a 3¢ 6OCBF 6720 188: MOVZWL IFBTBLSIZ,R7 ; compute Fodlesize 
57 4 Rk ObeER OP mULt2. #4 £23 ee 
CCB 7 GETMEM (86), (R6),R7 : read in ima e IFAB table 
C7 50 5? CD 724 BL&C ; can't read able 
57 000091 1A" EE CDB 725 MOVZWL Treretsiz, R7 ; pamber of entries to tebdle 
3 g D CE 7 § MOVL ; set up address of first IFAB slot 
8 D te 4 TSTL Res 3 space over Link to next IFAB table 
cee 4 : : Scan thru IFAB table -- 0 means no entry here 
CE? 731; R3 = pointer into IFABTBL byt ter at next IFAB address 
CE? 7 § 3 R6 = address of IFABTBL buffer in local memory 
OCE? 733; R7 = number of entries in IFAB table 
pce! 734 ; R9 = virtual address of IFAB table 
Ste : .? 
QOO00016'EF B86 Bree 7 5 208: INCW IFl : bump IFI value 
CED 738 GET IFAB,a(R3)+,800$ ; find IFAB if on , 080$ on error 
QO0000018"EF B86 Role tr INCW IFBS : we found an IFAB, so count it 
ODIF 741; If this is display for specific IFI, then check here, and go around 
OD1F eg ; everything else! 
ODE pea 
OOO00000A'EF BS ODIF 745 TSTW RMS_IFI1 s SOE TET IF 1? 
10 13 ODd25 rag BEQL 25$ : if eql n 
00000016'EF QOOO000A' EF B1 OD27 74 CMPW RMS_IFI1,1F 1 ; this. the: ~_ 
03 13 OD32 748 BEQL 25$ i ife zee 
OSA7 31 OD34 749 BRW 800$ 3; jus t ae e its not there 
Opa? Pay 
0D37 138 : SHOW IFAB 
Spay pa 
0037 = 755 258: SHOW IFAB 
gt 
OD44 38 + Get and Show ASB if any for this IFAB and if enabled. 
D44 760 
00000006'EF 00000040 e if apes 761 BITL #OPTSM_ASB,RMS_DIS_OPT1 ; ASB display enabled? 
D 13 OD4F Oe BEQL : ° 
D51 76 GET ASB, @1FBS$L_ASBADDR+IF AB, 30$ 
D81 764 SHOW ASB 
DBE Pee 
p E i : Display index descriptors (IDX$) if indexed file. 
D8E 769 - 
02 saad 91 D 3 $5 30$: CMPB IFBSB_ORGCASE+IFAB,MIFBSC_IDX ;is file indexed? 
5 12 QD 771 BNEQ 40$ ; if neq no -- skip index descriptors 
gt 
D97 = 774 : Do we need the IDX descriptors at all? 
D97 775; 
097 = 776 
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v04-000 SHOU. RMS 1 =-- Display RMS Data Structures eats yi 83:98 503 ESDALSRCIRMS MAR: 1 ° (6) Vv 
00000006 'EF 08 oO D9? = («777 BITL #OPTSM_IDX,RMS_DIS_OPT1 ; display the IDX de ipt ? 
ge RR i 778 Beat «4S wor” | Se eal as cee 
DA 780 GET j X,@1FBSL_IDX_PTR(R2), 40$ 
2D =O isd1111 009 f 1 BRB $° ; enter display loop in progress 
DD 7 : $33: GET 1px. @IDXSL_IDXFL(R2) ,40$ 
DFD 784 37$: SHOW 10x 
C4 11 BRO 785 BRB 5$ 
ae 
Oe0¢ 4 } ; If it looks Like the first BDB contains a FWA, see if we can dump it. 
E0C 790 ° 
03 00000006'EF corn f9 405 44! 40$: 14 PGE TOV FURNES DIS OPTI 418 : if we dont want FWA, skip it 
0E17 98 41$: GET FWA, @IFBSL_FWA_PTR+IFAB,43$ ; get FWA 
0E47 794 SHOW FWA 
0E54 795 ET FWA, @FWASL_FWA_PTR+FWA,43$ 3 get second FWA for SRENAME 
0E84 a4 SHOW FWA 
BR 
+34 444 : Start on path to file id. First find and dump CCB, then WCB, then FCB. 
0691 801 — 
00000006'EF 00000380 8F D3 0E91 80¢ 438: BIT #<OPTSM_CCB!OPTSM_WCB!OPTSM_FCB>,RMS_DIS_OPT1 ; any of these? 
ooh FS BE BRE ss 
00000D36'EF 00000142'EF Hi QEA1 805 44$: MOVZWL IFBSW_CHNL+IFAB,CCB-4 
QOOOOD3SA'EF DF OEAC 806 PUSHAL C 
00003C2C EF 01 FB peBe 807 ALLS 4¥ 4 Skt CCB 
03 50 34 OEB 808 BLBS 
0084 31 EBC 809 BRW Rog 
OEBF 11 45$: SHOW 
OECC 1 GET WCB, aCCBSL_WIND+CCB,46$ 
OEFC 1 SHOW wCB 
ta 44 14 GET FCB, aWwCBS$L_FCB(R2) ,46$ 
OF 815 SHOW FCB 
Ores BIS 
OF4 18 : RJB - RMS journaling BL 
F4 19 ; IFB MJB (AI extend Bans, buffer) 
Hye 
c? § 46$: 
Fé 4 3 If RJB display enabled, Get and Show the RJB (if any). 
F4 : 
00000006 ‘EF 00400000 er o ft ‘ pial SOR TER_RIG.RAS_DIS_OPTT 
F30 § GET RJB,@1FBSL_RJB+IFAB,47$ 
F 9 SHOW RJB 
FD 
F8D : : If MJB display enabled, Get and Show the MJB (if any). 
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: Scan thru BDB 
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MJB ,@1FBSL_EXTINLBUF +1FAB, 48S 


2 
IRAB_LNK+IFAB,IRB$L_IRAB_LNK(R2) ; set initial addr IRAB 
IRB$C_IRAB_LNK+IRAB,60$ 


: Get and Show the IRB MJB (if any). 


at | eeeata ittittammara aati cats 


: If ASB display enabled, Get and Show the ASB (if any). 


+ alee tata 
+ + Senta natalia intact 


: Display all RLB's attached to this IRAB 


#OPTSM_RLB,RMS_DIS_OPT1 ; is it selected? 
55$ : if neq yes 


50$ 
ETERS LIM OFRAS ALBEE LOR SRLS ; set up pointer to Ist rlb 


PAGE 
RLB, @RLBSL_LNK+RLB, 50$ 
RUB 
57$ 


List and show information from BDB's 


#0,SHOW_BDB_SUM ; show summary of BDB's 
# pinot BLB_ SUM ; show summary of BLB's 


{ selected 
s 

#8 T$M_6DB,RMS_D1S_OPT1 

70$ 


i 
i elected 
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v04-000 oye $1 == Display RMS Data Structures orSEp=| 384 te $3303 SDA.SRCIRMS.MAR; 1 “ (6) 
5 9000) 08 1127 91 MOVL IFAB-4,R2 ‘ viet addr of IFAB 
ago0046 co «(11 f 3 ADDL2 : FBS$L_BDB FLNK,R2 orm virt addr of queue header 
0000016 b pt 11 9 CMPL IFBSL_BDB_FLNK+IFAB i does queue header point to itself? 
oie 113¢ 94 BEQL : : egt yes “= queue empty 
QOOOO2ZA6"EF 00000162'EF 00 1175 32 ole IFBSL_BDB_FLNK+IFAB,BDB ; a: alize first BDB 
1150 39 65$: GET BOB, @BDBSL_FLINK+BDB,70$ 
1180 38 SHOW BDB 
QOOOOZA2"EF QOOO00166"EF D1 11 4 9 CMPL IFBSL_BDB_BLNK+IFAB, BDB~4 is this the last BDB? 
B6 12 119 00 BNEG 65$ it neq no 
1198 903 
119A 308 > Scan through the BLB List and print out contents 
3k ga 
09 00000122'EF 3 EO 119A 389 70$: BBS #IFBSV_NORECLK,IFAB,71$ ; if this doesn't have BLB's 
00 00000145'EF 91 1}A8 90 CMPB jpes B VORGCASESIFAB wit: SEQ ; is this seq? 
0080 34 j1a8 909-718: BRIG 
00000006'EF 00008000 4 » 1185 319 72$: eit £90 TOR_OLS ANS_91S _OPT1 3 pat we do RS"s at all? 
: eql no, ex 
$2 O900DIIE'EF 00 1188 912 OVE TFAB=4,R2 i address of itab 
52 0000009 8 8F co 11C2 91 ADDL2 #IFBS$L_BLBFLNK,R2 : ‘real’ ederess of blbflnt 
000001BA'EF ge oI 1103 a ar Fig RTS I ; does queue point Se, jena 
es -- no 
OO000138A"EF QOO001BA'EF 00 1188 318 oy $7,204 SL BFLIN *SPAS OLE ; > put “Bib” address in BLB 
et a8 73$: oc. BLS SOLOS FLAK OLB. 808 
00001386'EF  OOO001BE'EF 01 \$6! 920 CMPL {EGSL_BLBBLNK+IFAB.BLB~4 i is this last blb? 
B6 12 : ; 4 : BNEQ 3$ ; if neq no, go for more 
122E 923; 
1338 924 : Try to dump GBH if any. Get the GBH in SDA memory if anyone down 
\s ; 4 ; stream needs it, even if we don't want to dump it explicitly. 
1398 997° 
002E0000 8F D3 13 E 928 80S: BITL #<OPTS$M $0, OPTSR. GBD! OPTSM_GBDSUM! OPTSM_TRC>,- 
ceed na | OO ore 
00A0 «631 «1238)«=—«931 81$: = BRW 800$ : don't need GBH 
000001AA ‘EF oe 123E 336 82$: TSTL fit GBH_PTR+IFAB : do we ha e 
F5 13 «#1244 «O9 BEQL 1$ if eql no, oRip all who need it 
1246 934 GET GBH, @1FB$L_GBH_PTR+IF rap boos 
OD OOO00006'EF 12 4€1 #1276 935 BBC #optsv GBH; RMS_DIS_OPT1,90$ ; we don't dump the GBH 
: a3 4 $ SHOW 
00003744'EF 00 FB ! i 4 } 90$: CALLS #0,SHOW_GBD_SUM 
129 940 ; 
129 941 ; If tracing enabled, then get values of rms$trace_depth and rms$trace_flags 
: 2 348 3; and pass them on to SHOW_TRACE. 
129 ry 
44 00000006"EF 13 £1 129 945 100$: BBC sortey.. TRC,RMS_DIS_OPT1, et if not enabled 
52 D4 129A 308 CLRL nitialize trace depth 
FOSA CF DF 129C 94 PUSHAL TRACE_DEPTH 3 to set to look up symbol 
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CALLS oh $1 ROL. VALUE bgok up value of a pig DEPTH 


BLBC RO, 8 ; if lobe then no symbol yee 1gefaule 
MOVL R1,R ; use value of RMS TRACE_D 

102$: PUSHL R2 i put on stack for call te SHOW. TRACE 
MOVL #-1,R2 ; default for grace flags 
PUSHAL TRACE FLAGS ¢ set up for loo up 
CALLS #1,SYMBOL_VALUE i look up value. of Reprancs _FLAGS 
BLBC By age 3; if Lbc then no symbol e default 
BICL R1,R ; use value of RMS TRACE =FLAGs as list 

; of things NOT to trace 

104$: PUSH R2 ¥ ush on stack for call to SHOW_TRACE 

ADDL3 #GBHS$L_TRC_FLNK,GBH-4, ~(p et address of trace queue 


D 
PUSHAL GBH$L_TRC AS a 68H ; add Cocal (SDA) address of queue 
CALLS #4, SHOwW_ TRAC 


: End of processing for specific IFAB and its subsidiary control blocks. 


800$ DECL R7 : one less in this table 
BEQL 810$ ; if eql table empty now 
BRW 20$ 3 go back and get next entry from table 
: Current table exhausted -- try to get new table segment 
810$: BRW 10$ ; go back for more table 
900$: STATUS SUCCESS ; end of IFAB tables 
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MS Data Structures 16=SEP~1984 48:4 AX/VMS Macro V04-00 Pa 
-- Display current default RMS -SEP-1984 84:38:28 YODA SRCIAMS MARS] " 


«SBTTL SHOW_RMS -- Display current default RMS Data Struct. 


++ 
SHOW_RMS == Print out default RMS structures 


i; 
4 5 ; Inputs: 
9 5 : RMS_DIS_OPT = Display options for this command. 
9 § § RMS_IFI . 
989 ; 
444 : Outputs: 
$3¢ : None. 
39 
995 taco cates «WORD “*M<R2,R3,R4,R5,R6,R7,RB,RI> 
936 MOVL RMS _D dfs OPT RMS Dis_opri 
99 MOV SUF ch 5 IF] 
998 CALLS 70° SHO MST 
999 RET 
1000 
199) ptt+ 
1308 ; SHOW_RMS_DIS -= Print out RMS structures specified by /DISPLAY qualifer. 
1004 : Inputs: 
1996 : RMS_DIS_TMP = Display options for this command. 
190 : RMS-IFI-TMP = ‘* 
1008 ; 
1009 ; Outputs: 
1010 ; 
1011 ; None. 
1013 * 
1014 SHOW_RMS ag : WORD “M<R2,R3,R4,R5,R6,R7,R8,R9> 
1015 flov RMS_DIS_TMP,RMS_D1S_OPT1 
1918 Move RMS_IFI-TMP RMS_ “IFIT 
1018 


CALLS #0,SHOW-RMS{ 
RET 


ee 


M11 | 
RMS Display RMS Data Structures 16-SEP-1984 01:48:49 VAX/VMS Macro v04-00 Page 2 
v04-000 SHO “RAS.OPT ets 83:98:08 EEDA SRCIRMS MAR: 1 ° 8) 
1 -SBTTL SHOW _RMS_OPT 
3, +++ 
i SHOW_RMS_OPT == Print out current SET RMS, SHOW RMS options. 
Inputs: 
: Outputs: 
: None. 
-ENABL LSB 
SHOW_RMS_OPT: : 
O3FC Mary grees RE ME SRO RT RE ROD 
0 ALLOC ALLOCSZ,R4 ; Create some stack space for translate 
OOOOO000'EF oD 04 USHL RMS_DIS_OPT ; put longword bit argument on stack 
F4CS CF oO9F 04 PUSHAB HR ; translation table for options bits 
OOOO0O000'EF O02 FB CALLS #2,TRANSLATE_BITS : perform translation 
54 DD PUSHL R4 3 put result back on stack 
PRINT 1,<- 
RMS W500) oy Options: !AS> 
7E QOO00004'"EF 3¢ MOVZWL RMS_IFI,-(SP) ; put IFI value on stack 
OF 13 EQL 10$ : if all IFI 
PRINT 1,<- 
Display RMS structures only for IFI=!UW.> 
OD 11 R 0$ 
10$: PRINT <* 
Dagpley RMS structures for all IFI values.> 
" - §TATUS SUCCESS 
04 RET 


-DSABL LSB 

-SBTTL RMS_HANDLER == SHOW RMS exception handler 
RMS_HANDLER == Turn ACCVIO's into INVBLKTYP from SHOW RMS 
Inputs: 


Pointer to SIGNAL arguments. 
Pointer to MECHANISM arguments. 


Outputs: 
Resignal if not ACCVIO. 
Turn ACCVIO into INVBLKYP and unwind to caller of SHOW_RMS. 


RMS_HANDLER: 
-WORD “M<R2,R35> 
MOVa 4(AP),R ; Get addresses of arrays 
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52.04 AC D 


RMS_DIS_OPT = Current RMS Steplay + pgs = 
RMS_IF I = IFI for which to display structures. 
| 
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RMS Display RMS Data Structures 16-SEP-1984 01:48:4 AX/VMS Macro V04-00 P RI 
V02-000 RMS HANDLER = SHOW RAS exception handle ‘SaseP-1obe Oo:S4ice Pepa’ Sac RRS Mike] age 43 vi 
Q00000000'8F 04 Ag p 13A5 1 4 cnt. FHESL.SIG_NAME (R2) ,#SSS_ACCYIO ; is this access violation? 
15AD 1 BNE 0$ s 47 nga no 
04 A2 80009000 F 1SAF 107 MOVL #MSGS_RMSTERM,CHFSL_SIG_NAME(R2) ; reset the error 
5 ‘SF BC 1 ? 1330 10$: + laa #SS$_RESIGNAL ,RO ; continue ... 


RMS Display RMS Data Structures SEP-1984 148:4 AX/VMS Macro V04-00 Page 
v04-000 SHOU. 1FAB =-- Print out useful contents o y p=] ok 83:98:08 SDA.SRCIRMS.MAR; 1 . 
138D 1083 -SBTTL SHOW_IFAB -= Print out useful contents of IFAB 
138 2, ; +++ 
} +4 } § : SHOW_IFAB == Print out useful contents of IFAB 
: 44 } § : Inputs: 
| +4 } ay : 4(AP) = Address of local buffer containing IFAB 
BD 36 : Outputs: 
13BD 1094 : IFAB information printed. 
138 1098 
13BD 1 39 -ENABL LSB 
13B8D 1 38 SHOW_IFAB:: 
001C 13BD 109 WORD “M<R2,R3,R4> 
ee 
13BF 1106 + Do we need to show this structure? 
13BF }]04 
00000006 'EF 0 3 138 1198 eiTt SSP TOR. 1FSRAS_DI8 OPTI $ Show IF AB? 
: neq yes 
0480 $4. 13GB 1109 BRW 100 : 48 eat ho 
53 04 aC 00 ! ‘? 1198 2$ aoy ie ; R3 = address 
52 23 AS) 9A 1306 1110 MOVZBL IFB$B_ORGCASE(R3),R2 ; get the organization byte 
7E __FOE1 CF42 0 1304 1111 VL ORG_TBLCR2],-(SP) ; put the descriptor on stack 
7E  00000016'EF cis 3" Wig MOVZWL IFI,-(SP) ; put current IFI on stack 
FC AS) DD 13€7 111 SHL _-4(R3) ; get set up to print out address 
13EA 1114 PRINT 0,<- 
ie) We PRINT. 3,< 
13F7 119 IFAB Address: xi IFI: !XW Organization: !AC> 
1404 1118 PRINT < 
ai 420. SKIP pee RS a orien . 
141A 1121 ALLOC r+ Sem ; allocate data area for text str 
63 D 142C 11 ¢ PUSHL (R3) 3; set up argument -- dev chr bits 
EBCE CF F 14 5 11 PUSHAB oY CHR ; address of table describing bits 
OOOOOOOO'EF O02 FB 14 1124 ALLS #2,TRANSLATE_BITS ; only two args to neee descrip around 
54 DD 1439 1125 PUSHL R4 3; address of descrip 
63 OD 1 . if § peat ante 3; device sheonetartttice bits 
143D 11 : PRIMDEV: XL {AS $ 
6— 00000087 8F DO 144A 11 MOVL #ALLOC 3; reset size of allocated buffer 
my AS D 1431 1 0 PUSH LFBSL BKEBITS(R3) t get bookkeeping bits 
00000000' EF Oe FB 1458 11 § ALLS #2,TRANSLATE_BITS 
4 DOD 145F 11 PUSHL R4 ; buffer which contains string 
04 AS ODD 128] i : aya ifee. BKPBITS(R3) ; get the bits again 
168% 11 § BKPBITS: 1 if 
7€ 08 4 9A 14 11 MOVZBL IFBSB Dins) »7 (SP) ; block ID 
7E 9A 9A 1475 11 3 MOVZBL 2 BSB_ »7 (SP) ; block length 
147 11 PRINT << 
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Structures g-56 SEP =138 
t out useful contents o 5-SEP 


PRINT 
NK: 


MOVZWL 
MOVZWL 
PRINT 


MOVZWL 
PRINT 


MOVZWL 


2,<- 

XL - 
'xW '=!8UW.> 

#IFBSV_RFM.A4,IF 

RFM_TBCCR24 is 
JFBSB_RFMORG(R ) 
"XB “he? 
#ALLOCSZ, ¢ 

IFBSB_R aa ttas), -(SP) 
RAT_CAR 

#2. TRANSLATE BITS 


‘. RAT(R3) ,=(SP) 


HBK p| k(n 


'y 

ites 

[Fash “LRLTR3) , =(SP) 
XW '=-!BUW. - 
iXL> 
iFBS$L_EBK_DISK(R3) 
pFBSu_ “FFBTR3) ,=(SP) 
"XW '=!8UW. = 
'XL> 

iFB$B_BKS(R3) ,-(SP) 
JFBSBLFSZ(R3) ,~(SP) 
(XB '=!8UB. - 
iXxB i L8UB > 
iFBSW_MRS(R3) ,-(SP) 
JFBSW_DEQ(RS) ,~(SP) 
"XW '=!8UW. = 
XW '=!BUW.> 
iFesw_ GBC(R3) ,-(SP) 


XW '=!8UW.> 
iFBSL_ HBK(R3) 


XL UL.> 
1FBSL_ EBKCR ) 

1K L.> 
iF BSL Lock'B BDB(R3) 
Fest RNS_CEN(R3) 
XL - 
'XL> 
ifB 
1F8 
"x 


Sw 
BSL_SFSB_PTR( 


L = 
XW !=!8UW.> 


IFBSW_AVGBPB(R3) ,-(SP) 


=(SP) 


AVLCL(R3) , = (SP) 
R(R3) 


0438342 yeeives Macro V04-00 Page 


SDA.SRCIRMS.MAR; 1 


B$B -RFMORG(R3), R2 ; get record format into R2 
) ; put string on stack 


record format 


reset size of allocated buffer 
record attributes for trans 


record attributes 


highest block alloc SSUAPPED? 
longest record length 


end of file block (SWAPPED) 
first free byte 


; bucket size 
; header size 


maximum record size 
default extend size 


global buff count 


; high block alloc 


; end-of-file 


lLockbd* address 
multi-use field 


local buffers available 
pointer to shared file synch block 


; global pointer blocks available 
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RMS Display RMS Data Structures 16-SEP-1984 01:48:49 VAX/VMS Macro Vv04-00 Pp 
v04-000 SHOU. It ap -- Print out useful contents o 5=-SEP-1 1382 OF ee ite SDA. SRCIRMS.MAR; 1 = 
7C A3=oODD 197 é Puen }FBSL. GBSB_PTR(R3) ; pointer to global buffer sync block 
189 1 § GBSB_PTR XL 
19f AVGBPB: ‘XW 1=!8UW.> 
OA4 3 DD 16 ; 1 § IFBSL_RJB(R3) ; pointer to journaling block 
088 C DD 1? ! $ PUSHL pFOst. GBH_PTR(R3) ; pointer to global header 
168A 1 6¢ GBH_PTR: XL - 
168A 1263 RJB-PTR: iXL> 
6— 00000087 BF DO 1697 1264 MOVL #ALLOCSZ,(SP 3 reset size of allocated buffer 
7E epee 3 3 18A8 ! 92 eat 444 ane INCFLG(RS), »~(SP) ; journal flag bits for translate 
00000000'EF oe Fe 1A ¢ CALLS #¢ TRANSLATE _BITS 
7E OOAO C3 9A 1880 ! } pyiw Ve aetinescneinonadh cat ; journal flag bits 
1685 1271 JNLFLGS: XB “phs? 
6— 00000087 8F D0 196e 1 i MOVL #ALLOCS reset size of allocated buffer 
7E O0At cs 9A 16¢ 3 movzBL 1 IEBSB REEVRFLGS«RS), o(sp$; recover flag bits for translate 
00000000' EF be 4 1803 ! o cts POCTR TRANSLATE BITS 
7E 00A1 C3. 9A 1008 } i pee ht aaah ili recover flag bits 
1660 1279 RECVRFLGS: ‘ie As? 
6— 00000087 8F DO 16ED 1280 MOVL #ALLOCSZ,(S : reset size of allocated buffer 
7E fn te a 1908 : 4 sete are SACFLGQ(R3), -(SP) ; journal flag 92 bits for translate 
00000000‘ EF be 43 1902 : es cts 4% , TRANSLATE_BITS 
7E OOA2 C3. 9A 1706 | 82 ttt ae qc JNLFLG2(R3),-(SP) ; journal flag bits 
1708 1s 7 JNLFLGS2: hee 
0080 c3' DD 1778 1288 PUSHL iF BSL PAR ID(R3) ; parent lock id 
34 AS DD at } Sp punt yee L-EXTINCBUF (RS) : pointer to extend MJB 
171F 1291 EXTUJNL_PTR: XL ~ 
171F 1 3 PAR_LOCK_ID: iXL> 
195¢ 1394 
172C 1295 : Case to organization dependent code 
195¢ 4599 
02 00 23 A3 or 172C 1298 CASEB IF BS gORGCASE (RD), 00 88 ; branch to org dependant code 
OOE' 1731 1299 5$: WORD 193-28 : sequential 
04C* 17 1300 -WORD 158 : relative 
04C* 17 1301 -WORD 15$- : indexed 
17 1 § STATUS NOTVALID 
04 173€ 1 T 
1e3t 1308 
Vf : ! § : Sequential organization dependant code 
173F 1 : 
6— 00000087 8F DO 173F 1 88 10$: MOVL yt tet tit : reset size of allocated buffer 
008C C3 DD 1746 1310 PUSHL IFBSL_AS_DEV(R3) ; get set up to trans char bits 


F 12 
RMS ie tf RMS Data Structures mie ht 91:4 749 VAX/VMS Macro V04-00 Page 
v04-000 SHOW_IFAB == Print out useful contents o 5-SEP-1984 35:48 (CSDA.SRCIRMS.MAR; 1 
F oF cee 131 PUSHAB V_CHR 
00000000' EF Oe FB 1788 ! ciuls te, TRAMSLATE_BITS 
008c c3 «OD ie } \° pean A'S AS SEVERED ; assigned dev characteristic bits 
17 : 1 18 AS_DEV: XLT AS> 
7E 0094 (3 3¢ 1298 } ! peyeve 4° GOL ASOEVESIEIRS) ,-(5P) 3; assigned dev buffer size 
1760 1 15 ASDEVBSIZ: XW '=!8UW.> 
009E 31 177A = 1320 BRW 100$ 
1950 1352 
1770 «(1 : : Code common to relative and indexed, but not sequential 
75D 1898 
0098 c3 =—DD 1700 } 8 15$: at: IFES _BLOFLNK CAD) 
1781 1328 BLBFLNK: 'XL> 
009c c3. —~DD 1795 : 4 BUSHEL 1FBSL_ BLBBLNK (R3) 
1292 13 1 BLBBLNK: 'XL> 
02 01 23 A3 8F 179F 3 5 CASEB IFBSB_ORGCASE(R3) 41,42 
0004" 17A4 133 16$: .WORD 0$-186$ 3 relative 
001C' 17A6 1335 . WORD 0$-16$ 3 indexed 
AH 
PAB 1336 : Relative organization dependant code 
pas 1300 
00B0 C3 DD pag 1341 208: PUSHL IFBSL N(R3) ; first data bucket VBN 
OOAC C3 DD I17AC 1308 PUSHL gFOst. BANC 3) 3 maximum record number 
1580 i te MRN: sey + - 
1780 1345 DVBN: iXL!=!BUL.> 
0058 31 17BD 1346 BRW id0$ 
ne ie 
17CO 1349 : Indexed organization dependant code 
1FtO 138) | 
7E 0080 C3 9A 17C0 1 26 30$: MOVZBL IFBS$B_AVBN(R3) ,-(SP) ; VBN of Ist area descriptor 
OOAC C3. —~OOD 17C3 i $7 push he athlete 3 pointer to primary key idx desc 
1709 1 28 IDX_PTR XL - 
17¢9 «1 2 AVBR: 'XB '=!8UB.> 
7E 00B2 C3 9A 1706 135 MOVZBL IFBSB_NUM_KEYS(R3),-(SP) ; number of keys in file 
7E 0081 C GA 1708 i 8 ef fh JFBSBLAMAR(RS) ,~(SP) ; total number of area descriptors 
170 1360 AMAX: "XB t= {8UB. - 
17E0 1361 NUM_KEYS ixB i-i8uB.> 
7E 0084 C3 3c 617ED 1 6¢ MOVZWL {EBSU_KBUF SZ (RE) .-(SP) ; key buffer size 
7E 0083 C oA TFs ! o otf grees Mew Saxe ),-(SP) ; update buffer size 
17F? 1365 UBUFSZ: "XB t= {8UB - 
17F7 1 66 KBUF SZ: 'XB '=!8UB.> 
7E 0086 C3 9A 1804 156 MOVZBL IFBSB_EXTRABUF(R3),-(SP) ; number of buffers for cacheing 
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t out useful contents 
MOVZBL SP E90 PUL VERIR? oS? ; prolog version 
PRINT e <= 


iXB 
SUCCESS 
LSB 


16-SEP-19 
fC) orSEp=19 


!=!8UB.> 


Be 03:38:48 


AX/VMS Macro V04-00 
SDA.SRCIJRMS.MAR; 1 
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RMS Display RMS Data Structures 16-SEP-1984 :48:49 VAX/VMS Macro v04-00 Page 30 
V04-000 SHOU. 16x sas oreEp= S82 Os:aesca LebaV ea Tams MART] o 96) 
! } a ~SBTTL SHOW_IDX 
1 1 8 poee 
! } 9 ; SHOW_IDX == Display useful contents of index descriptor. 
} ! ¢ ; Inputs: 
f : 4(AP) = Address of buffer containing index descriptor. 
1 1 : Outputs: 
i 1359; Cuteu 
18 } 3 : None. 
1 1390 ° 
18 1391 ~ENABL LSB 
1 3 SHOW_IDX: 
001c 1 139 ~ WORD “M<R2,R3,R4> 
53 04 AC 00 1353 } Be po ar ake ; get address of buffer into R3 
1841 1396 SKIP 
FC AS” DD H+ P45 : 4 ste Pa a ; virtual address of IDX 
184D 1399 IDX Address: !XL> 
(poe a 
1867 140 KIP 1 
7E 08 AS 9A 1870 1208 MOVZBL IDX$B_BID(R3),-(SP) 
63 DD 187% 1404 PUSH JDXSLLIDKFL (RS) 
aT a 
7E 09 A3 9A 188 1408 MOVZBL IDX$B _BLN(R3) =(SP) 
7E 12 03 9A 1887 1409 MOVZBL 1DxSB- LANUM(R3) ,=(SP) 
i 
7E 13 A3 9A 189 141 MOVZBL IDX$B_LANUM(R3),-(SP 
7E 14 A3 9A 1335 Weis palate OxSB_ _DANUM(R3) ,=(SP 
e ' - ' 
1BA0 1219 LANL, ie i RyB > 
7E 15 A3 9A 13a0 1313 MOVZBL IDX$B_ ROOTLEVIRS) .- (SP) 
7E 16 A3 9A 188 1419 MOVZBL Dx$B sr ianlageseah (SP) 
1 1421 IDXBKTSZ: ie '8UB. - 
1885 14 ¢ ROOTLEV: -i UB.> 
18 A3 DD 18¢3 14 PUSHL Dest ROOT VBN(R3) 
7E 17 A3 9A ! 3 1 : poy Eat one DATBKTSZ(R3) ,-(SP) 
1809 14 § DATBKTSZ: XB -!8UB. 
' ° 1? ROOTVBN: ixit= =!8UL. > 
1 + 14 § 3 
1806 14 ? ; Translate and dump the flags 
1 D6 1431 ; 
18D 14 § 
1806 14 


I 
RMS Dat 16-SEP-1984 :48:49 VAX/VMS Macro V04-00 Page 
a ree ete §h:4 :48 . 


RMS Displa 
v0z-000 SHOU. 10x SDA. SRCIRMS MAR: 1 
18D6 1434 ALLOC ALLOCSZ,R4 
7E «61¢ a3 9A 1 pg 1435 MOVZBL 1DXS8 FLAGS (RS) -(SP) 
21 a3 (95 «1BEC 14 : TSTB px B-KEYREF (R35 : ig it primary key? 
ecer cr OOF (1BR) 44 8 ON EHAB jox CHRO a 
04 11 18F5 14 BRB He 
oooo0000'fFe bo ee i 124) 98; ACLS” AO TRANSLATE _BITS ne ae eee ee ee 
54 DD 1 68 1446 ’ PUSHL R4 
7E 1C AS 9A 1904 1443 MOVZBL JoxsB_ FLAGS(R3) ,-(SP) 
1308 1445 FLAGS: 'X AS> 
52. 1D A3 9A 191 1446 MOVZBL iDX$B DATATYPE (R3) ,R2 
7E ECF6 CF42 DO 1919 144 MOVL 1DX fat tre) << 
7E 1D A3 9A 191f 1448 MOVZBL porte DATATYPE (R3) ,=(SP) 
1993 1450 DATATYPE: "XB 'AC> 
7E 1F AS 9A 1930 1651 MOVZBL iDX$B_NULLCHAR(R3) ,-(SP) 
01 OD 1934 1458 PUSHL 
7E 16 A3 9A 1936 1453 MOVZBL JOxsB_ SEGMENTS (R3) ,-(SP) 
193A 1455 SEGMENTS: KB '-!8UB, = 
193A 1456 NULLCHR: ixB "UAE'S 
7E 20 A3 9A 1947 145 MOVZBL IDX$B_KEYSZ(R3) ,- 
7E 2103 9A 1948 1458 MOVZBL Dx$B “KEYREF Een SP) 
194k 1461 KEYede ie iziBUB: >. 
7E 22 a3 3C 195¢ 1466 "  MOVZWL  IDX$W _mINRECS $7 tR3), 
7E 2403 3C 1960 1463 MOVZWL DxSu_ IDXFILL(R3),- 
1964 1465 IDXFILL: "XW '=!BUW. = 
1964 1466 MINRECSZ: iXW i-iBuW.> 
7E 26A3 3¢ 1971 1467 MOVZUL jPese DATFILL(R3) ,-(SP) 
1975 1469 DATFILL: XW =! 8UW.> 
52 28 A3 9A 1982 1470 MOVZBL iDise IDKBKTYP(R3) .R2 
7E —ECA9 CF42 00 1986 1471 TBLICR2],-(SP) 
7E 284A 9A 1386 1476 Boveat 1Dx86_ TOXBKTYP(R3) ,= (SP) 
1990 1474 IDXBKTYP: ‘is 'AC> 
52 29 03 9A 199D 1475 MOVZBL IDX$B_DATBKTYP(R3),R2 
7E ECBE CF42 DO 19A1 1476 MOVL IDX_TBLICR2J,-(SP) 
7E 29 03 9A 19A7 147 MOVZBL poste DATBKTYP(R3) ,-(SP) 
19A 1475 DATBKTYP: (XB 'AC> 
1988 1481 ; 
é 1? gi ; Display the specific segments 
484° 
52 2C Ad 3E 198 12 5 MOVAW {DxSy POSLT LOMAS) «Re ; get starting address of segments 
54 16 A3. 9A 1305 14 § MOVZBL IDX$B_SEGMENTS(R3),R4 ; get number of segments 
54 ¢ 9s 78 1900 14 ASHL #3. R 3 sult tety by 4 (1 *tonguord / segment) 
4 co oes 1? 3 apneé ‘ ; R4 = address beyond last segment 
1900 1490 PRINT 0,<- 


4 ssi aaa act 4 


J 12 
RMS Display RMS Data Structures 16-SEP=1 :4 AX/VMS M cro y94=00 Page RP 
v0z-000 SHOU. 10x Toes Pa ee HY st Ce i) vl 
19D0 149 POSITION SIZE TYPE> 
19DbD 149 PRINT 0,<- 
19DD 133 sen wena econ oee-> 
19EA 1494 SKIP 1 
3a 1495 
54 3 Di =(19F 1238 10$: CMPL Re RG ; beyond last segment? 
1 1966 14 BEQL 3 § : ife L yes -- exit 
50 O3A 9A 19F 1638 MOVZBL 3(R2) . r get. pe 
7E _EC13 cr 0 19 149 MOVL Ox TBLEROJ,-(SP) i get string” on stack 
7E O3 A A 1A 13 0 MOVZBL 3(R2),-(SP) ; datatype 
7E 4 1A 3 1501 CLRL =(SP) 3 make rome room on stack 
7 § C 1A 1 § MOVZWL (R2)+,=(SP) ; put size on stack first 
04 AE A 1A0B 1 MOVZBL (R2)+,4(SP) ; put position into breviow hole 
8 95 ‘1A0F 1504 TSTB (R2)+ ; step over datatype 
1A11. 1505 PRINT 4,<= 
1A11 1306 'X¥W!-!8uUw. 'XB!=!8uUB. 'xB 'AC> 
D3. Cis aie 15 BRB 10$ 
1A 1508 
1A20 1509 
04 1A27 1510 RE 
1A28 1511 -DSABL LSB 


90S: STATUS SUCCESS 
| 
| 
| 
| 
| 


003¢ 
53 04 AC 00 


FC AS OD 


~~ Fe 
55 FC AS 


ogo 
NO 


63 ODD 


04 AS DD 


pi splay RMS Data Structures 
SHOW_FWA 


PRINT ° 
FWA Address: !XL> 
PRINT 


ek et at at at = = = = = = = = SS SS = ss ss Ss SS od ss Ss Ss 8 2 2 SS SS SS I Ss se 


>>>r>rrrrrr> 


So UVLvODEn GD O00 wd wd den om 


MMINVCONMUNOWPFPWPUOVTOPOYO 


em ed a ed ed ad = = dd 8 6 sd 2 a a 2 8 8 


OOO NAME WN OS OOO NIA UE WIN SO OD NAME WIN SO OD NAME WR OOO NAME WN OOONAOUE WW 


RVSSBSeee> 
mmmo 


SEP=1 


.SBTTL SHOW_FWA 


SHOW_FWA == Show information in FWA. 
Inputs: 


4(AP) = Address of buffer containing FWA 


Outputs: 


Information printed out for FWA. 


.ENABL LSB 

WORD “MCR? RS ,R4.RS> 
MOVL  4(AP).R 

SKIP PAGE 

PUSHL =4(R3) 


1,<- 
0,<- 


eeeweeoeeeoeee) 


; Form value which will be used to adjust descriptors in the 

; FWA f xzaddress in FWA, y=address of FWA in users image, z=address of 
; FWA in SDA, then address of descriptor in SDA = x-y+z. 
3 xt(-y+z) = x#(z-y). We now form (z-y) in R5. 


MOVL R3,R5 
SUBL2 <=4(R3),R 


5 3 form z-y 
ALLOC ALLOCS2,R4 


: Now dump the bit fields 


PUSHL PWASG _FLAGS(RS) 


PRINT 1, 

'XL> 
PUSHL FWAS$Q_FLAGS+4(R3) 
PRINT 1,<= 

'XL> 
SKIP 1 
FWABITS PASS 
FWABITS FLD 
FWABITS WILD 
FWABITS PARSE 
FWABITS DIR 
FWABITS DIRWC 
FWABITS LN 
FWABITS + 
SKIP 


: More normal dumping of intermediate FWA cells 


"$rSEp=1986 05:38:48 ESDAVSRCTRMScMAR I 


3; copy 2 (address of FWA in SDA) 


siti - 7:48:49 YAX/VMS Macro V04-00 Page 
WoL ByOU PUA tid nace crease ’ mits 8h: 3808 SDA. SRCJRMS MAR; 1 df) 
v04-000 SHO : , 
1BE ; 
1BE 185 ; address of string 
fe He HE ieee ERS, Spree enemy 4 peoess soir 
R3),° sv 
5 6B Ni oF ibe fe PUSHAB in ~DIRTERMCRS) ; address of string 
RS SR BED fi mOVIBL OF FWASB _DIRTERM(R3) ,=(SP) : value of string 
7E OA A3 9A 1BFO 157 MOVZBL FWA 
1BFS 1899 DIRTERM ie nA, ~ 
18k 4 0 ROOTERM ixB iA fis 
SCIFI(R3),=- 
a2 A BD Kos 4 j Ponte CU ASL ESC ETRING CASS 
OF if 3 4 PRINT 2,<- ~ 
1€08 1585 ESCSTRING: XL - 
se 1878 1888 one? nnn pokey MLISIZ(R3} -=(SP), 
i: it & 3A 1C1A 1588 NOVZBL FWASB_XLTMODE (RS ? 
1C1F 1589 acts ess : 
iele 1899 XtTSize iXw!=!8UW.> 
foe 159 " PRINTD FWA$Q. aati 
1f§ 1398 PUSHL FWASL-OIRBDB(R3) 
ar eS BR leet MOVZBL pWASB BUFFLG(R3) ,=(SP) 
nS Se Soe 1603 1298 PRINT 2,< . 
147 1596 BUFFLG: Hie 
ee 1337 _— PRINTD FuAsa ,LOGNAM 
189 1399 PUSHL FWASLLOOKUP(R3) 
ih eet tae PUSHL = FWASLIUIC(R3) 
stot ae PRE PRIN; be 
. if = 
eg 1608 Lookur: MOV2WL FUASW_PROCR3) ,-(SP) 
me AS BS ikbS 1808 PUSHL — FWASLDEVNODADR(R3) 
7 in te Tt 
i 1809 rapa it 
if $0_.DIR 
1690 1609 PRINTD FWA 9610 aay ocep) 
gag fe HAR 181 oveat PRE EGP gD fa 
ee HAC 18g PRINT Pie ; 
ie gig oe! tye BNODCNT(R3) .-(SP) 
HRS MUR som ibe summer 
1€C1 161 _ PRINT Boe : 
iee} 1819 SU BNODENT: Bi i8uB.> 
ieee PUSHL FWASL_ SWB. PTR(R3) 
shoghat eM a 
fb 18 § am i FUASL _SLB ‘i: (3) 
C3 DD ICDE 16 PUSHL Tecra, 
wa cS DD KE 16 4 PUSHL BUASL- SLB 
1CE6 1626 SLBH_PTR XL 


cro V04-00 
MS.MAR; 1 


-m— ~~ a aw“ 
‘ss “44 ~ 
aa 22 —~ 
uu eed ay 
mm —J Vv 
i) Qau HUNT OR. OO 
own ee > WW Wl J 
- == w eaocoaacaansa °o 
am a oooocooodo sd 
44 a 22222222 a 
nw ail z ees s@ se eee - ” 
‘os we ow i t $ees (= n” 
~N dau QW CUP ~TWN OR-D oe oooccdo0c0d awa SI ws 
- APA It A WwKeVeeeeee ee UMTNOrODuww Yu Pr PA fo LA A 222 n vv 
j<tatv ii (=> 7) 4+. alenlenienenieniend 4 4 4 4 4 4 4a ee el a 4 «<a <aaacacacae a co vu 
= <3azs + a) OWOKKKKOOOOO Ht Ht HM > ZiT 33333333 ——— ao) —— | 
eR S K—ZQOVVVUVVUVVVVOooooosco2zF>H eK—uwuwuwuuuusrns o-eaeo@ L ” 
et °o 
a Aa Ge. be Oe Oe. Oe Oe te Oe be Oe te te te ee a ee a a aeaoaoaoaacas ene Cc wn” 
a ee - SOooooaooaooaooaaaaHnaanaaadtj | oa eel anal ane eee aul eel aoe oan > 
zzz & Oaaaadcaadcaadaaadaaaaaadgadcada artztezazzzzz2z2 aaaad — -_ 
n AVI -4 o* oe Vv —t + = = = = = = = 4 = = = Se SS Se Se SS St SS St leita: + + = oJ <= 
wo DS Da ww wn en ne ee ee ee 4 dt te ee) c - 
Ss aaazaz b 4 MOOOOoOOGHOoGOOOoGooGooAaoaaoaoaaoa wAaAaaaaaa woasa ° ”“ 
ne en oo 
rw « Del oo 
[S) - u@ a —_ 
S a ‘6 i= wv o 
— t == = J a=) a 
~ @ @ma oa << So 
” a | =) So 
” mw eerere terete = 
«eo 
we P-DKOK— MNT NOR. DHOOM TM DOR. DAO CIM FM OR. DHOK— CIM TN OR. DAO CUM TIN OR. DOC OK— UM 
@ NOSSO I IY TF SF ST ST ST TT TTT WOANAAUNUAALAUIN OOWOOOOOOOOR-APP-A-P_R.R.P.R..COCDCOED 
a WOODOODOOOODOODOODOODOOOOOODOOOODODOODODOOODODOOODOODOODOODOOOOOOOOOOO'D000 
LLL LLL LLL LLL LLL LLL LLL LLCO LLL LEC 
” 
= 
a SOM 2 M0000 00000000-- Cu O OST DUO OR. WINOM I —- Du OOF DVO V—- ODOM f€ £1 ad - DOWOOD 
ff Wee 4 COCCOCO-— MING OUTRO OWOPMIND fOu — TF OO MOOV QWOKVNTNOOR. OC OW WW 
PB CLUVVUVOOOOOGOCoCCCOWWWWWWE Keun unUnUnOOOOCOOCCOCS eK eK KK KK KKK KK Ke eK 
_, LLL III IOI OOOO OOOO 
—_ 
as 
no aa 
—-x aa 
anM 


RMS 
v04-000 


04 

003¢ 

04 A2 DD 

6E QO0002F6"EF C2 
BE 00000935C BF 01 
0B IF 


CODBDMMMA OO NYVMVOOOOCOCOD BD OIMMVIVIUIWO UIINVOOOOOOOOOOCOCOOCOOOO™ 
a a dd dd od 
NSN NNSA AAA A AOA 
WINIPIPINPINIPINININININ 2 9 OP HF HM QOOOOOOOOCOCOCOOOOOOOOOOM@MM@c ca 
MR OODNA NE WIN $9 OOD NAME WIN 0 OD NAME WIN 9 OD NAME WO OONOUS 


& PFW | | = § BQO CCCOCOCOCOO TTT TTT HHH S 


pisplay RMS Data Structures 
SHOW_F 


RET 
-DSABL 
po++ 

; FWADD == Dump 
; Inputs: 


Outputs: 


Te rerererererary 
t 
f 
1 


FWADD: .W 
P 


: Within FWA =- 


See if we can 


10$: ALLOC 
cM 


™Nm 
o 
wn 
wv 
Po) 
2 
oot 


wa 
So 
bad 


RET 
-DSABL 


N 12 
"SSEP=1986 03:38:48 


descriptors in FWA 


peacgeress of descriptor. 
=Offset to add to address for local descriptor pointer. 


String printed if possible. 


R2,R3,R4,R5> 


= 


LSB 
aM< 
4(R2) 
FWA=4 
Pruast. SIN, (SP)+ 
10$ 


dump more or less normally 


4(R2) : 
RS, (SP) : 
(R2) ; 
20$ : 
find it... 
AL Ocsz AR ; 

tthe : 
attap» aucnao, , (R2) : 
Rae) : 
(R2) : 
2,<- 

'AF> 

LSB 


AX/VMS Macro V04-00 
SDA. SRCIRMS.MAR; 1 


see if Seer inser points into FWA 
offset from 
within FWA? 
if blssu no 


; address in process 
; porvessven previously calc for FWA 


ngt 
: orint statement 


; make some space for it 
; is it enough space? 


if gtr no 
get penery if possible 

f Lbc then couldn't get it 
ush sedress of string 
ength too 


B 13 
-SEP-1984 :48:49 VAX/VMS Macro Vv04-00 Page 
e A ote: star otis "erge = 384 bh: :48 USDA SRCIRMS MARS 1 . 
‘ 4C 1734 ~SBTTL SHOW_CCB 
LE 153% ;44s 
ac 17 $ ; SHOW_CCB == Show information from CCB. 
| 1738 | ; Inputs: 
rt: 1744 | : 4(AP) = Address of buffer containing CCB 
4C 1228 Outputs: 
4C 1744 ; 
4C 1745 ; None. 
te peg 
4C 1748 -ENABL LSB 
4C 1749 SHOW_CCB: 
001¢ 4C 1750 WORD “M<R2,R 
00000006'EF 00000080 ef d3 af 122] Birt FOPTSA eek! RMS -DIS_OPT1 ; THe nea yes. 
QOOAE 31 2258 1588 BRW 90$ : if eql n 
53 04 AC DO 266 a 1$: Sov, ie 3 get “ce buffer address 
FC A3~—=soODD 269 1728 tty pb be ; address in dump of CCB 
26C 1758 CCB Address: !XL>- 
79 «#1759 PRINT 0,<- 
ge ihe) SP 
H WIND (R3) ; address of window control block 
o 83 DD $b 1388 PUSHL FEBSt UCB CRS) ; UCB address of the device 
2294 1764 PRINT 2,<= 
294 1765 UCB: XL - 
at AEE MM soe alte 
mothe Ses IRL ant thie can 
ooo00000'fF Oe FB 8 1279 CALLS #9, TRANSLATE_BITS 
7 BAS) OA C4 (177 MOVZBL CCBS$B_STS(R3),-(SP) 
as cB 1778 STS: seas fre 
52. 09 A3. 9A 2205 1775 ~~ MOVZBL CCB SB. AMOD (RS). *R2 
cae D9 1008 CMPL "s 
so 8 ug SBE Te Rot iBks 
7A _CF4 0 2261 1779 30$:  MOVL AMORE TBLCR2],-(SP) 
nee 05 AS BA E 7 0 MOVZBL SCBSB_ “pao teas -(SP) 
EB 17 ¢ AMOD "XB 'AC> 
0c as po FB 17 PUSHL CCBS$L_DIRP(R3) 
7E OAA ¢ FB 7 ; mOVZUL ccesull 10C(R3),-(SP) 
FF 17 6 10C: "XW '=!BUW. = 
FF 17 BIRP 'XL> 
. o¢ 4 8 $: STATUS SUCCESS 
14 1790 .DSABL LSB 


00000006 ' EF 


00000100 8F 
03 

01BA 

53 04 AC 
FC A3 

7E 08 A3 
63 

7E OA A3 
04 A3 

7E 0B AS 
E2C6 CF 
00000000'EF 9 
7E 0B AS 


OC A3 


DD 


DS DS OCOD 0009 SIN NINO UI BB EPO 2 ee es Co 


oo 
OMIM DS COW WW OL NINN OD DMM DN POW HM ALLL LLL LLL LLL LESS 


owoww 
w"@ 


DWOOVIMVIVIVIVIN FO FF 


AI.N AAA AANA. AAA AA AAAI AAAI AAAI AAI IAAI WWIII 


\~h~4~4 1-4 -1-4-4-i ei 


B\sp ley RMS Data Structures 
SHOW_W 


C 13 


16-SEP-1984 01:48:49 VAX/VMS Macro V04-00 Page 3 
Breer hs Obiseica eRA ee Tage Mee] oe 3, 

179 ~SBTTL SHOW_WCB 

1998 - 

1794 3444 

108? ; SHOW_WCB == Show information from Window Control Block. 

1787 3; Inputs: 

1735 ; 4(AP) = Address of buffer containing wCB. 

1801 ; Outputs: 

1 86 3 

| 04 3 None. 

1805 -ENABL LSB 

1806 SHOW_WCB 

1807 . WORD gnetee »R3,R4,R 

1808 BITL a M WCB, ans ors _OPT1 ; display web's? 

1809 BNEQ ; if neq yes 

1810 BRW $s ; if eql no 

1811 1$: MOVL 4(AP),R3 ; address of buffer with WCB 

1316 ENSURE 19 

13) SKIP 2 

1814 PUSHL =4(R3) ; address in dump of WCB 

Ha PRINT 1,<= 

1816 WCB Address: !XL> 

+ +44 PRINT 0,<= 

1818 q-----------> 

1819 KIP 

1820 MOVZWL WCBS$W_SIZE(R3),-(SP) 

1821 PUSHL WCBSL_WLFL(R3) 

1 WLFL: 'XL - 

1824 SIZE: 'XW fs avy »> 

1825 MOVZBL WCBSB_TYPE(R3),-(SP) 

1826 PUSHL WCBSL_ —~WLBL(R3) 

1827 PRINT 2,¢ 

1828 WLBL: HL - 

1829 TYPE: 

1830 LLOC OCSZ,R4 

1831 MOVZBL WCBS6 ACCESS(R3) ,-(SP) 

1 3 PUSHAB WCBSHR_ CHR 

1 CALLS #2,TRANSLATE_BITS 

1834 PUSHL 

1835 MOVZBL WCBSB_ACCESS(R3),-(SP) 

1 § PRINT 2,<=- 

1 ACCESS: 'XB 'AS> 

1838 PUSHL WCBSL_ORGUCB(R3) 

1839 BITB #WCBSA_ SHRWCB,WCBSB ey ; is this shared WCB? 

1840 BNEQ 10$ f neq yes 

1822 ; 

} 68 | ; Unshared WCB -- print PID of owner 

1845 

1 ry PUSHL WCBSL_PID(R3) 

184 PRINT 2, 

1848 PID: XL ° 


we 
enw 
oon 


11 


A3 


Pee ar RMS Data Structures 
SHOW_WCB 


11 


3C 


D 
9 
3 
C 
C 
D 
1 
D 


muni DO LOmMmo 


; Shared WCB -- 


Poa EL eee eee 


WS OO O09 090909 NDE BE AAI AINIIPPININPDY | | SOC OT TH TAMMMmMmMmmmmmmmmmmo 
DWVIIO BRA RNOOWOO OL OMM — —$WOOWOwowoond WW once f= & LOM Vwi 2 OO WO NNN SIU 


me ee ee a a dd ed ed ed 8 8 = 8 2 3 


oooo 


MEARS OODNAUNE WO OD NAMES WIN SO OONAUE WIN 0 OD NAU EW OOODNOAU SW OO 
sees. wD 


D 13 


197 366-1382 04:98:22 AX/VMS Geere v04-00 Page G 


4 3 SDA.SRCIJRMS.MAR; 1 


'XL> 
5§ 
print reference count of WCB 


WCBSW_REFCNT(R3) ,=(SP) 


2<* 
‘XW '=!8UW. = 
'XL> 


#ALLOCSZ, (SP) 
WCB$W_ACON(R3) ,=(SP) 


wcBAct CH 
#6, TRARSLATE_BITS 
fr enced tale 


"XW 
WCBSL_FCB(R3) 
WCBSU_NMAP (RS) ,~(SP) 
"XW '-!8UW. = 


'XL> 
WCBSL_RVT(R3) 
WCBSL_STVBN(R3) 


2,<- 
'XL!=!B8UL. - 
'XL> 


reset buffer on stack 


FCB address 
number of map pointers 


mapping pointers that fit into our buffer. 


RVN Starting LBN Count> 


1 

WCBSL_STVBN(R3),R 
WCBSW-P1_COUNT(R3 
WCBSW_NMAP(RS) ,R4 
#6,R4 


; initial VBN for this window 

; address of start of mapping pointers 
; number of mapping pointer 

; number of bytes of mapping pointers 


R2,R4 ; address beyond end of mapping ptrs 
R4 , #WCBEND is it beyond the buffer? 

30$ if leq no -- its ok 

 emanaeasin ; set new end of buffer 


o<o 
panto doesn't fit SDA memory buffer> 


R2,R4 ; end of pointers yet! 
: if geqg yes -- exit 
(R2)+,-(SP) 3 get size 


<2 


E 13 
Display RMS Data Structures 16-SEP-1984 48:49 VAX/VMS Macro V04-00 Page 4 
SHOU_WeB aoe Pa ee ee yas Ct Ca Pe oe 49; 
DD 24BD 1 PUSHL (R2)+ ; get LBN 
50 6E 98 ; EF 24BF 13 5 Bitgy 4 é $5. (SB) AO 3 get Relative yolune number 
6— 6E EF 04C4 19 EXTZV #0,#24.(5P). (SP) ; replace LBN with LBN 
DD 4C9 13 PUSHL R ; push RVN 
DD 4cB 1 tity R ; push VBN 
55 OC AE CO 24CD 191 ADDL 12¢SP),R5 ; adjust VBN for next time 
401 191 PRINT 4,<= 
401 19135 !12UL. ' SUL ent '=!72UL. 'XW !=!8UW.> 
DS 11 24dE 1914 BRB 30 
4—E0 1915 
4E 1318 90$: STATUS SUCCESS 
04 4E 191 RET 
4E8 1918 -DSABL LSB 
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RMS Display RMS Data Structures 16-SEP-1984 48:4 AX/VMS Macro V04-00 Page 
v04-000 SHOU. FEB mii ety y 83:38:08 YODA SRCTAMS MARS] . 
7E 20 A3 3C § 4 MOVZWL FCBSW_TCNT(R3),-(SP) 
5 PRINT 2,<= 
6 § TCNT: XW '=!8UW, = 
1A A3 1 61 3 opine CMPW ii"? cesw ACNT(R3) is this fil b h ? 
; is this e open more than one? 
a a PHS in ete! 
: eq no == ex 
698 5041 — 
69B beg 3 
698 45 ; Here we will attempt to print out the WCB addresses and associated 
698 44 ; PID's for all the accessors of this file. 
| $98 Soca | 
54 OQOOOOF7E'EF 00 269 049 308: MOVL FCB-4,R4 ; get virtual address of FCB 
54 10 CO 26A 048 ADDL2 #FCBSL_WLFL,R4 ; create virt addr of queue head 
52 Oppodo SEE 43 6A 049 MOVAB WCB,R 
62 10 A3 DO 26AC 2050 MOVL FCBSL_WLFL(R3),WCBSL_WLFL(R2) ; set up starting address Ist WCB 
680 2051 SKIP 1 
6B9 B26 PRINT 0,<- 
6B9 205 Current Accessors> 
6C6 2054 PRINT 0,<- 
66 S$ 2 ti(“‘“itét RC > 
6D 056 SKIP 1 
6DC 2057 PRIN 0 .<- 
6DC 2058 WCB Address PID> 
Seep 059 PRIN 0,<- 
6E9 060 eeeeeacaeeen “<--> 
26F6 2061 SKIP 1 
6FF 0o¢ 
OFF 063 40$: GET WCB,@WCBSL_WLFL(R2) ,90$ 
0B A2 08 93 72C 064 BITB #WCBSM_SHROCB,WCB$B_ACCESS(R2) ; is this shared WCB? 
19 13 27 g 069 BEQL 50$ ; if eal no 
7 66 
7 seen 3 
7 068 ; Shared WCB -- print out access count instead of PID 
sF35 S090 ° 
7E OE A2 3C 7 071 MOVZWL WCBSW_REFCNT(R2) ,-(SP) 
OOOOND4A'EF DD 2736 B76 PUSHL  WCB-4 
73C 207 PRINT 2,<- 
7 § 074 XL REF CNT: ‘XW !=!8UW.> 
16 #11 a4 45 BRB 60$ 
OC A2 DD 748 6 50$: PUSHL WCBSL_PID(R2) 
OOOOOD4A'EF ODD 274E 78 PUSHL WCB-4 
Pee 79 PRINT 2,<- 
754 0 'XL 'XL> 
62 54 D1 2761 2081 60$: CMPL R4 ,WCBSL_WLFL(R2) 
99 12 764 : BNEG 408 
766 4 90$: STATUS SUCCESS 
04 2760 2085 RET 
76E 2086 -DSABL LSB 
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RMS Display RMS Data Structures 16-SEP-1984 :48:49 VAX/VMS Macro v04-00 Page 44 
v04-000 SHOU. TRAB oe ae 1 83:38:28 SDA.SRCIRMS.MAR; 1 . ( 
76E .SBTTL SHOW_IRAB 
re BB ae 
pee 4 : SHOW_IRAB -- Show information from IRAB. 
pee $8 : Inputs: 
ree 22 : 4(AP) = Address of IRAB in buffer in memory. 
76E 8 : Outputs: 
76E 98 ; 
76E 99 ; None. 
He git 
76E 21 § -ENABL LSB 
76E 2103 SHOW_IRAB: 
001C 276 1s -WORD “M<R2,R 
00000006 'EF 04 D3 770 105 BITL #OPTSM_ Ty RMS _DIS_OPT1 ; display IRAB's? 
0538 35 5979 S109 cru 908 t ih geet ent 
: no == ex 
53 04 aC 00 443 198 1$: ooyE rH Tie 3 get address = buffer into R3 
7E 52 A3 3¢ $780 110 MOVZWL IRBSW_OWN_ISI(R3),-(SP) ; push ISI value for this IRAB 
FC AS =—DD sree AF vem ry hed ; real address of this IRAB 
278E 118 IRAB Address: !XL_ ISI: !Xw> 
2798 114 PRINT < 
th le SKIP ee: 
63 ODD ore We oven JROSLTFAB_LNK CAS) ; address of FAB to which this Lnkd 
2783 119 IFAB_LNK: : 1KL> 
7CO 2120 ~~ ALLOC LLOCSZ,R4 ; make a buffer to trans BKP bits 
04 Ad. ODD Ay 121 PUSHL TRBSL BKPBITS(R3) ; set of the bits for a call 
DB97 CF oF 7D 1 ¢ PUSHAB IRBBKP CHR ; address of translation table 
00000000 ' EF ge 4 94 ! ? pate 4% , TRANSLATE_BITS 
04 AS OOD res 1 5 eye RBSL _BKPBITS(R3) ; the bit again, this time for display 
7E5 21 : BKPBITS: Ti tASD 
7E 08 AS 9A 7Fe 1 8 MOVZBL iRBSB BID (RS), ~ -(SP) 3; block ID 
7E 09 A3 9A 7F6 1 MOVZBL RBSB_ _BLN(RS) ,=(SP) ; block Length 
ee ! ? ; PRINT ie le1eus. 
nk 318) Bt with 
7E OA s 9A 4 1 MOVZBL inBsB MODE (R 3; mode 
7E OBA OA 4 134 MOVZBL jrese_t EFN(R3),- ; event flag number 
o : 3 EFN rect iB 
F 21 $ MODE : iXB> 
14 a DD 1c 21 3 PUSHL iRBSL “ASBARRR (RS) ; ASB address 
OC A DD 1F 125 ait tet ~ BSL 10S(R3) 3; 1/0 status Block 
; 141 10S: iL - 
18 A DD F 128 ASB ADR: cut ie ST(R3) ; User argument List 
18 | DD 2 2144 PUSHL IRBSL~ tR3) t end of 1/0 status block 


— 
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RM Display RMS Data Structures 16-SEP-1984 01:48:4 AX/VMS Macro V04-00 Page 45 
yo2-000 SHOU. 1RAB : Breer o8d Os :deica Pepa eRc Tame MARS 9° 8) 
145 PRINT 2,<- 
129 ARGLST ixt : | 
20 a3 DD 284 148 " PUSHL  RB$L. CURBDB(R3) : current BDB pointer 
1C A DD 4 14 PUSHL JRESL_IRAB_LNK (RS) ; link to IRAB List 
4 150 RINT ,<- 
78 5182 CURBDBS ixt> ' | 
3C a3 DD 2855 21 4 " PUSHL IRBS$L_NXTBDB(R3) ; next BDB 
24 A DD 58 2154 PUSHL prea h Ae! WADERS? ; most recently used RAB in users space 
58 155 PRINT < 
28 5189 hxTeDBs iXt> 7 
30 a3 D 2B 138 " PUSHL  IRB$L_JNLBDB(R3) 
A DD 2868 15 PUSHL RBSL_RLB_LNK(R3) 
86E 160 PRINT <- 
Ber 5162 UNCBDBS ixt> ; 
34 A3—DD 398 183 " PUSHL IRBSL_IDENT(R3) | 
7E 28 AS =35C i 19 eet ROU £8 EAS) M8 SP? | 
88 166 ISI: XW - 
NT: 'XL> 
6— 00000087 8F 00 Hh 188 se MOVL #ALLOCSZ, (SP) ; reset size of allocated buffer 
7E 3 ° ag Bae $2 se he! ior 0: patna ; journal flag3 bits for translate 
00000000 ' EF ge FB HH 12] CALLS #2, TRANSLATE_BITS 
7E SD AS 9A 28A7 138 MOVZBL ep anette nat ; journal flag bits 
BAB S178 UNLFLGSSe SKS 'AS> 
2c A3—oDD 88 176 PUSHL {RBSL_ATJNLBUF (R3) ; pointer to AT MJB 
bbs 156 ATUML PIRI” = tBe> 
C8 2179 Sey 
ie 130 3 
4 } ; Case now for some organization dependant fields 
C8 2183 ° 
02 00 00000145'EF 8F gt 184 CASEB IFBSB_ORGCASE+IFAB,40,42 
0008. 8D 185 2$: -WORD 10$-28 ; Sequential 
00 ¢. D 186 WORD a $ ; Relative 
0093" 2804 2187 .WORD 0$-2$ 3 Indexed 
O3E3 = 31 . } 8 BRW 99$ 3 organization error 
D9 5190 ; | 
4 198 3 Sequential 
Py 
| 
48 y DD 8 194 108: PUSHL IRBSL_RP_VBN(R3) ; VBN from current record pointer 
40 A DD +3 132 PUSH RBSL_NRP_VBN(R3) 3; VBN from next record pointer 
oY war yens iting | 
4C as DD e8EC 199 ~"""" PUSHL = [RBSL_RP_OFF(R3) ; current record pointer offset | 
44 AS DD 34 $00 PUSH JRESL_NRP. FF(R3) ; next record pointer offset | 
| 
| 
| 
j 


<z 


RMS 
v04-000 


0130 


6E 00000087 8F 
7E 40 AS 

DDOFE CF 

00000000 EF 9 
7E 40 AS 


6E 00000087 8F 
7E 4 


DBB 
00000000' EF 

7—E 42 AS 

6— 00000087 8F 
7E 44 A 


3 
DB30 CF 
00000000 ' EF O2 


Rispley RMS Data Structures 
SHOW_IRAB 


31 


F NRP_OFF: 

FS § RP_OFF: 

FF 2 BRW 
9 ; 
9 5 ; Relative 
3 § 
9 10 20$ PUSHL 
9 11 PUSHL 
90 \¢ PRINT 
ap 15 NRP_VBN: 
9 14 RP_VBN: 
91 15 PUSHL 
918 1g PUSHL 
918 1 PRINT 
318 5519 NRP 
9 8 0 PUSHL 
92B 1 PUSHL 
92E § PRINT 
92E NRP_OFF: 
92E 4 RP_OFF: 
938 5 MOVZWL 
93F 8 MOVZWL 
94 PRINT 
94 8 NRP_OFF: 
94 RP_OFF: 
95 0 PUSHL 
95 1 PRINT 
95 § CURVBN: 
96 BRW 
363 9535 
96 6 ; Indexed 
363 5538 | 
96 9 30$: OVL 
96A 40 MOVZBL 
96 41 PUSHAB 
97 5 CALLS 
97 4 PUSHL 
978 44 MOVZBL 
9O7F 45 PRINT 
34 r setting 
9 5 $8 MOVZWL 
99 4 PUSHAB 
+4 50 ALLS 
9A 51 PUSHL 
9A4 26 MOVZWL 
9A 5 PRINT 
9A 4 SRCHFLAGS: 
98 5 MOVL 
43 § MOVZBL 
9C PUSHAB 
9C4 8 CALLS 


K 1 
Pep -1986 03:38:28 LSDASRCTAMS MARCI 

ae 

oe 


3 record pointer VBN 


IRB$L_RP_VBN(R3) 
i] 3 next record pointer VBN 


RBSL_NRP_VBN( 3) 


AL t= 1 Bub. - 
ixti=i8uL.> 
{RBSL_RP(R3) 
RBSL_NRP(RS) 
"XL! =!8UL. - 
ixci-i8uL.> 


{RB$L_RP_OFF(R3 
RBSL-NRP_OFF(R 


a& 

'XL!=!8UL. - 
ixci-i@uL.> 
iRB$W_RP_OFF(R3) ,-(SP) 
JRBSWINRP_OFF (R35 ,~(SP) 
XW '-!8UW. = 

ix i-iBuW.> 
TRBSL_CURVBN(RS) 
'XL!=!8UL.> 
40$ 


#ALLOCSZ, (SP) 
IRB$B_CACHEFLGS(R3) ,-(SP) 


¢ 

#3 TRANSLATE _BITS 
JRBSB_CACHEFLES(R3) .~(SP) 
itp 


XB 1A 
#ALLOCSZ, (SP) > reset buffer size on stack 
IRBSW SRCHFLAGS(R3),-(SP) ; push bits to translate 


#2, TRANSLATE_BITS 

; address of text string 
JRBSW_SRCHFLAGS (R3) ,~(SPS ; bits again 
Vv 


; address of translate table 


XW ; 
#ALLOCSZ, (SP) ; reset buffer size on stack 
IRBSB SPL_BITS(RS) ,~(SP) ; bits for translation 


S 
#2, TRANSLATE_B!TS 


3; address of translation table 


Page 4 | 
F%) | 
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RMS Display RMS Data Structures 16-SEP-1984 :48:49 VAX/VMS Macro V04-00 Pa 4 
V04=000 SHOU. 1RAB 3epr 1982 bbia8ice Feb aVeactansomansy a 
54 D 29CB 5 PUSHL ; buffer full of bit names 
7E 44 A3 A aco poyige fase. SPL_BITS(R3), -(SP)’ ; bit values again 
901 SPL_BITS: "XB 
7E 41 A3 GA 29D MOVZBL iIRBSB STOPLEVEX ( a» 
7E 44 A302 01 EF 3 rt: pray ginesv.. NEW_BKTS, {Rese SPL_BITS(R3) ,-(SP) 
9E 66 NEWBKTS: "XB UB. - 
9E ? STOPLEVEL: 'XB iz <j UB. 
7E 4A a $f OF 3 MOVZWL IRBSW_ SPLIT(R ).- -(SP) 
7E «48 A C or9 $ MOVZWL RBS POS_INS(R3) ,=(SP) 
9FD 2271 POS_INS: "XW '-!8UW. = 
9FD 72 SPLIT: XW '=!8UW.> 
4C a3 DD 2A0A 207 PUSHL iRBS$L_PTR_VBN(R3) 
4C AS DD AOD i PUSHL JRBSLILSTIREC(R3) 
At id: LST_REC: XL - 
A10 77 PRT_VBN: 'X¥L!'=!8UL.> 
7E 4E A3 Hs A1D re MOVZWL IRBSW_SPLIT_2(R3),-(SP) 
7E 4C A3 C } 8 mae JResu. SPLIT ~1(R3) ,-(SP) 
AeS 2281 SPLIT_1: XL! =!BUL. ” 
A25 S SPLIT=2: 'XL!=!8JL.> 
As Be 
A 5 : Common path again 
Ae § 3 
7E 54 AS) OA A 8 40$: MOVZBL IRBSB_BCNT(R3),-(SP) 3; buffer coun 
50 AS OOD Ag8 3 aan RBSL- —_OWNER_ID D(R3) 3: full owner Ip Longword 
A39 2291 OWNER_ID: ii - 
A39 38 BCNT: ixB '='8UB.> 
7E 55 A3. QA 2A46 9 MOVZBL IRBSB_ MBC (R3) ,-(SP) 3; multibuffer count 
7E 52 A3 3¢ ate 3¢ ar RESW_ _OWN_ 1S1(R3),-(SP) : ISI] of this IRAB 
AGE 96 OWN_ISI: ia !- jee. ~ 
AGE 97 MBC: 'XB i-ig 
7E 50A3 3C 2A5B 38 MOVZWL iRBSW_ OWN ipyR3> -(SP) ; process ID (low word) 
7E 5203 9A ASE 99 MOVZBL RBSB_ PPF-1S1(R35 ,-(SP) 
A6 1 PPF_ISI: "XB '-!8UB. 
A ; OWN" ID: iXw> 
An 3 
v4 i Case for organization dependant fields 
A? . 
02 00 00000145'EF F Me 8 CASEB jfese ORGCASE+I FAB, 40,42 
009° 2A7 41$: . WORD a 41$ 3; sequential 
* 2A7A 0 WORD $-41$ 3; relative 
re A7C 11 D 0$-41$ : indexed 
0238 3 are \§ BRw 99% 3 organization error 
14; 
15 ; 
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Di RMS Data Structures 1 4 VAX/ Vis Macro V04-00 Page 48 | 
vo2=000 SHOU. TRA sips o78Ep= 1582 Osisesca Leda eacans mage s = 
AB} 1g ; 
AB 231 
7E G2 AZ SC GAB] g51B SOS: — MOVZWL —IRBSW_CSI7(R3) °=(SP) | 
64 A3 DD «OARS 8381 PUSHL JRESL-TEMPOCRSS 
A 9 PRINT ,< 
yr 
7E 66 a3 3C A 5 "  MOVZWL IRBSW RE 
7E 648A € 2a99 4 MOVZWL JRESU- ROVHDSZ(R3) .=(SP) 
ASD 5 RINT 
Ap 5359 Roi Se, LT ee 
7E 65 a3 9A BAAA 2 "MOVZBL IRBSB post PETER BS) 7 (SP) 
7E 64 A3 9A AA ; MOVZBL JRESB- “PRE_CCTL(R3) ,-(SP) 
Rt > POST Cet: ect guB.. = 
7E 68 A3 9A 2ABF j MOVZBL iRBSB yang (RS) =(SP) 
68 AS-D AC 4 PUSHL nest TEMP1 (R3) 
ACS 5 PRINT 
AC6 $ TEMP1: 'XL - 
ast 3 NVBNS: XB '=!8UB.> 
O1DE 31 2AD 8 BRW 90$ 
ADS 9 
Abe rh : Relative 
Py elativ 
AD6 2342 : 
A 
7E 62 A3 9A 2AD6 2344 60$:  MOVZBL [RBS CSIZ(R3),-(SP) 
ADA 2345 PRINT 1, 
ADA 2346 CSI2: St. -!8UB.> 
O1CA 31 2AE7? 2347 BRW 508 
AEA 48 
AEA 2 3 | tadened 
; ndgexe 
AEA 2351 : 
AEA 235 
64 A3 DD s2AEA 2g 70$: PUSHL _IRBS$L_UPDBUF (R3) 
60 A3 DD «2AED «2354 PUSHL JRBSL- KEYBUF (R3) 
MS SRR evar, PMT fg 
68 A3—OOD AFD 37 NPDBUF : PUSHL Hey _RECBUF (R3) 
6C AS) DDB 2 PUSHL JRBSL- OLDBUF (R3) 
5 a RECBUF tenes tL 
80 6¢ OLDBUF : iXL> 
PUSHL iRBSL _UPD_BDB(R3) 
8 A DD Bi e PUSHL RBSL- RFA~ ORR’) 
Bie 6g RFA me rit! -!8UL. - 
PD"BDB: 
70 a3 pp B33 3 she PUSHL IRBSL_LAST_VBN(R3) 
7E 748A C 8 é ; WOVZUL pret RFA_ID(R3) ,~(SP) | 
| 
BoA 2371 RFA_ID: "XW 1=!BUW. 
B2A 2372 LAST_VBN: iXL!=!8UL.> 
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.SBTTL SHOW_BDB_SUM 


: SHOW_BDB_SUM -- Show one Line summaries of important BDB information. 
Inputs: 
None. 
Implicit Inputs: 
wee deathly HH 4 ~: options. 
= uffer with valid (current) IFAB. 


8 

Outputs: 
None. 

Implicit Outputs: 


Current BDB buffer destroyed. 


-ENABLE LSB 
SHOW_BDB_SUM: 
001C ~WORD “M<R2,R3,R4> 
03 00000006'EF 05 f° BBS #OPTSV_BDBSUM,RMS_DIS_OPT1,10$ ; branch if summary enabled 
0118 1 $: BRW 90$ : optimize branches 
52 QOOOO11E'EF 00 0$: MOVL FAB-4,R2 : virtual address of current IFAB 
52 00000040 8F (CO FBS$L_BDB_FLNK,R2 ; virtual address of BDB queue header 
00000162"EF 52 01 ,1FBSL_BDB_FLNK+IFAB ; does queue header point to itself? 
—E6 613 : if egl yes -- enpty queue, exit 
OOO002ZA6"EF 00000162'EF 00 BSL_BDB_FI NK+IFAB,BDB ; initialize BDB buffer to point to Ist 
eet Se ; we're really going to print something 


BDB Summary> 


SKIP 
PRINT 
BDB CACHE_> 


PRINT 0,<- 
Address USERS SIZE NUMB VBN  BLB_PTR ADDR VAL FLGS> 
PRINT 0,<- 


eeeeecees eeeee eeee oeece moe See ee ee wee eee “<--> 
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Allocate memory for translate bits output. 


ALLOC ALLOCSZ,R4 


; per BDB. 


EPUB Be Be Ee BS EE PPP PPP PPP PPP PPP PPLE EEE 
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nk eek ak pe Ant ga pa ae chp oh aA ot 28 on oh cA oh we gh gh gh gh at hgh oA wh oat gh what ye oh oh oh oe hot ais 
ee 
hh) =) 


> Main loop -- get BDB's from List and display important info, one Line 


RMS 
Vv04-000 . 


6E 00000087 
7E 


OA 

D6E2 
00000000" EF 

7E 


rPrrrrrruionrew 


MPOPPOPOPoNn fro 


| 
mmr 


DE6D 

08 Ae 
6E DE5A 
FC 


FC A2 00000166' 


Dis 
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SVUVTVOVCVTVCTVCVVVTVCCVCTCUCTUCUVUTTTTFO 
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: 


PU PVU PVP PUSS SUSU USES USUI USSU 
PUSS Be Ee EB BE PNA NII AI mrononononononeny 


FW OO ODNAU EWN 0 OD NAME WP O OONOUE 


§ 


20$: 


30$: 


PRINT 
IXLIAS!3UW !SuW 
CMPL 


90$: 


MOVZWL 
have a 


PUSHAL 
B 


BEQL 


STATUS 
RET 
-DSABL 


jé 
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BDB,@BDBSL_FLINK+BDB,90$ 

PALL OCS? (SP) i reset size of at located buf fer 

BDB$B_FLGS(R2) ,-(SP) i get flags byte for translate 

aoe CAR ; address of bit table for translate 

#2, TRANSLATE_BITS 

R4 ; push result string for PRINT 

BOB$B_CACHE_VAL(R2) ,-(SP3 

BOBS$L—ADDR(R2) 

BOBSL_BLB_PTR(R2) 

BDB$L_VBNTR2) 

BDBSU~NUMB (RE) 

BDB$W_SIZE(R2) 

BOB$W_USERS(R2 


GBPB instead of a BDB then flag it. 


SPSTRING : e BDB 
#GBPBSC_BID,BDBSB_BID(R2S ; is, it ,08P8? 


: flag. as "GBB 


GSTRING, (SP) 
=4(R2) 

10,<- 

'SUW '7SL 'XL 'XL !'3UB !AS> 

if BSL “BOB _BLNK+IFAB,-4(R2) ; done? 

90$ ; if eql y 

20$ 

SUCCESS 


es 
; if neq then go for more 
LSB 
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.SBTTL SHOW_BLB_SUM 


SUSI 


: {" SHOW_BLB_SUM -- Show one Line summaries of important BLB information. 
Inputs: 
None. 
Implicit Inputs: 
RMS_DIS_OPT1 = Display options. 
IF AB = Block buffer with valid (current) IFAB. 


None. 


; Outputs: 
: Implicit Outputs: 


Current BLB buffer destroyed. 


4 

i 

8 

9 

0 

4 

5 

6 

7 

8 

9 ENABLE LSB 
0 SHOW_BLB_SUM: 
1 “WORD * 
¢ B 

4 

5 

6 

7 

8 

9 

0 

4 

5 

6 

7 

8 

9 

0 

1 


001C M<R2,R3,R4> 
11 00000122°EF 33 £0 BS #IFBSV_NORECLK,IFAB,5$ ; if no blb's on this IFAB 
00 00000145'EF 91 CMPB  —s [FBS$B_ORGCASE+IFAB,MIFBSC_SEQ ; is file sequential? 
08 13 BEQi ; if eql yes, exit 
03 00000006'EF 10 £0 BBS #OPTSV_BLBSUM,RMS_DIS_OPT1,10$ ; branch if summary enabled 
0113 1 5$: BRW 90$ 3 optimize branches 
52 QOOOO11E"EF 00 10$: MOVL IFAB-4,R2 ; virtual address of current IFAB 
52 00000098 BF CO ADDL2 #IFBS$L_BLBFLNK,R2 ; virtual address of BLB queue header 
OOOOO1BA'EF 52 O01 CMPL R2,1FBSL_BLBFLNK+IFAB =; does queue header point to itself? 
—E6 «13 BEQL : if eql yes -- empty queue, exit 
O000138A'EF  OQOOO001BA'EF D0 MOVL IFB$L_BLBFLNK+IFAB,BLB ; initialize BLB buffer to point to ist 
SK PAGE ; we're really going to print something 


BLB Summary> 


SKI 1 
PRINT 0,<- 
BLB BDB MODE> 


DMM NOOO DW & ONOON TNT ALS LLL LLL LPL LLLP PPL PPP PPLE SSE 


OIA SE FWA | SOOO T TT oo noon oo 


RIPIPIPNININYINIPININININYININYNINIPINPYNININININININYININY/IPPYNYINYINYIPINININPINPIPUNININININPUPoNoNononofpopnonononrny 


MM MMMM MMMM MMMmmMMnMMmmmMmmnmmnmmmmmnmnmmnoOOOCOVCVCCVUVCUVUUUCUCVCUVCUUOUUUTUCUCUUCTUUUTUUTUVTUUTCYS 


RIP IP INP IPINIDINIPIMPPINPIPIPIPINIPYNIPIPIPNINYIDIPDIPPOPINPININPIPIPIPIPYIPIPYNININIPIPIPIPUPIPINPIPINPOPONPNPIPUNIPYD 


PDP DPPEDPDP PDP PDP DPE DEPP PPS PUPS III 


PRINT < 
Address Address OWNER HELD VBN _ LOCK_ID VALSEQNO BLBFLGS> 
§ PRINT 0,<- 
78 2603 weeene-  eeeeee=  enn-- i > 
4 SKIP 1 
ee 
; > Allocate memory for translate bits output. 
E a 
Ab 9 ALLOC ALLOCSZ,R4 
A 2 
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EA $1? ; Main_loop <= get BLB's from List and display important info, one line 
EA 14 ; per BLB. 
Fad 5618 ° 
EA o19 208: GET BLB,@BLBSL_FLNK+BLB,90$ 
6E 09000087 8F DO 2ED 918 MOVL PALLOCS? (SP) 3 reset size of allocated buffer 
7E AA2 9A 2ED 61 MOVZBL BLBS$B BLBFLGS(R2),-(SP) ; get flags byte for translate 
DOF1 CF OF 2EDB 2620 PUSHAB ae CAR ; address of bit table for translate 
00000000'EF 9 FB EDF 621 CALLS @# , TRANSLATE_BITS . 
4 odd EES 6 § PUSHL R4 ; push result string for PRINT 
8 A2 DD EE 6 PUSHL BLBSL_VALSEQNO(R2) 
4 Ag DD EEB 624 PUSHL BLBSL_LOCK_ID(R2) 
GA DD 3 625 PUSHL BLB$L_VBN(R2) 
53 0B A2 9A 2EF 6 § MOVZBL et) imamate et 
53 06 91 2EFS 26 CMPB #6,R 
ee a ee ae 
DAOE Cres DD 2EFD 2630 22$:  PUSHL ®BLB TBLCR3] 
10 Ag DD ay $63) PUSHL BLBSL_OWNER(R2) 
OC A DD SB O36 PUSHL BLBS$L_BDB_ADDR(R2) 
rem ee ee PRN ghee 
2F 0B B38 IXL IXL 'XL HAC H7UL  IXL IXL 'AS> 
FC A2 000001BE ‘EF D1 2F18 636 CMPL IFB$L_BLBBLNK+IFAB,-4(R2) ; done? 
03 13 2F20 2637 BEQL 90$ : if eql yes 
FF7B «31 sss 5038 BRW 20$ ; if neq then go for more 
2F25 2640 908: STATUS SUCCESS 
04 2F2C 2641 RET 
2F2D 2642 -DSABL LSB 


17) 


vi 
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.SBTTL SHOW_BDB 


: SHOW _BDB -- Show information from BDB. 
Inputs: 

: 4(AP) = Address of BDB in local memory. 
Outputs: 

: None. 


-ENABL LSB 
SHOW_BDB: 
001C WORD “M<R2,R3,R4> 
53 04 AC 00 VL 4(AP) ,R3 ; get address of BDB into R3 
ieee 
FC A3~=—s «OOD PUSHL =-4(R3) ; real address of BDB 
08 a3 15—O91 CMPB  #GBPBS$C_BID,BDB$B_BID(R3) ; is it GBPB 
—! s- ye 198 zif neq no 
GBPB Address: !XL> 
PR . 0,<- 
1A 11 20$ 


BRB 
10$: PRINT 1,<= 
BDB Address: !XL> 
PRINT 


eeceeeeeeceee=)> 


SDSS DSS DSA PAA AAA AAA AAA AAA AA AAA AO 


DOOO OOOO WOO 0009.69 09 09 09. G9 0009 SI NIN NNN SSD DDD DD DP AD ITT EE 


2 
r4 
2 
5 
7E O08 AS 9A ; 
63 
2 
2 
2 
5 


WHWHRHHMMMMOOCVCWWOD \ \ \Y \ PO ODO AA UNNI SAR IPIPIPIPOPOPPIPINPONINIPPOPoPoNnony 


SMM > WS FLO OANA AW MOIRIWIOD NOOO PVUVIANFSAIWwVOVVVVVVTVVTVVT"CTCTC0C00"U 


NN NN ee 8 8 ee re re ed ro 
SOO NA UES WR 9 OO NAW E WIN 9 OOO NAME WWI $$ SO OD NAME WIN OC OONOU EWN OOONOUSE 


IP 
MOV7BL BDBS$B_BID(R3),-(SP) ; block ID , 
DD SHL BDBS “FLINK(RS) : forward BDB Link 
PRINT 2,<- 
FLINK: 'XL - 
681 BID: 'xB '=!8UB.> 
7E 09 AS 9A 6 MOVZBL BDBS$B_BLN(R3) ,-(SP) ; block length 
04 A3—ODD 6 PUSHL BDBS$L~BLINK(R$) : back Link for BDB chain 
6 PRINT 2,<- 
685 BLINK: 'XL - 
686 BLN: ix8 !=!8UB.> 
6 ALLOC ALLOCSZ,R4 ; make some space for translate bits 
7E OA A3 QA 6 MOVZBL BDBS$B_FLGS(R3),-(SP) ; push flags byte for translate 
D4A3 CF OOF 6 PUSHAB BDB_CAR ; address of translate table 
00000000 ‘EF : 4 ? saehe #2, TRANSLATE_BITS 
7E OA AS 9A seg fA SOSCR FESS ERE) 497) 3; flags again for print this time 
6 FLGS: 'XB 'AS> 
10 A3 Re 6 PUSHL BDBS$L_BLB_PTR(R3) 
7E OC AS C ° MOVZWL BOgSW_USERSIRS? »=(SP) ; use count 
PRINT .<* 
698 USERS: ‘XW '=!8UW. - 
$ BLB_PTR: iXL> 
7E OF AS 3 MOVZWL B8DB$W_BUFF_ID(R3),-(SP) 
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7E OB AS” 9A 9 701 MOVZBL GOSS CREME M6 LADD 5 98 8P2 
7 § PRINT ,<* 
1 705 CACHE_VAL: 'xB cif B. - 
13 2704 BUFF_TD: ix i-i BuW. 
7E 14 ‘3 ¢f 705 MOVZWL B8DBS$W_NUMB(RS) ,-(SP) ; number of bytes in use 
7E 168A C 3024 27 § MOVZWL B8DBSW_SIZE(RS) ,-(SP) ; buffer size 
7 PRINT < 
708 SIZE ‘XW '=!8UW. = 
709 N 'XW t=! 8UW.> 
1¢ “ DD 710 PUSHL BDBSL_VBN(R3) ; VBN for this buffer 
18 A DD 711 PUSHL DB$L_ADDR(R3) ; address of buffer 
B ie PRINT ,< 
B 715 ADDR: 'XL - 
8 8 714 VBN: 'XL!=!8UL.> 
08 AS 15 4 715 CMPB |» inhi atin ; is it GBPB 
16 12 304¢ 16 BNEQ 308 ; if neq no 
24 A DD Bek 71 PUSHL GBPBS$L_GBD_PTR(R3) 
20 A 05 fs PUSHL gOPSSL VENSEGNO(AS) 
054 271 PRINT ,<- 
054 2720 VBNSEQNO: 'XL - 
54 721 GBD_PTR: iXL> 
0089 31 3061 138 BRw «908 
4 A3 DD Hae 724 30S: PUSHL BDBS$L_WAIT(R3) 
20 AS” ODD $004 725 PUSHL _ t pehieeneineriaiess 
06A 726 PRINT <- 
06A 2727 VBNSEQNO: 'XL - 
06A 728 WAIT: 'XL> 
4C AS OD 3077 2729 PUSHL BDBSL_CURBUFADR(R3) 
48 AS DD 307A 2730 PUSHL BDBSL_WK1(R3) 
07D 2731 PRINT 2,<- 
07D tag WK1: XL - 
07D 733 CURBUFADR: '¥L> 
7E 4A AS QA 308A 2734 MOVZBL BDS$B_PRE_CCTL(R3),-(SP) 
7E 48 AS) 9A 308E 2735 MOVZBL BDBSB_REL_VBN(R3) ,-(SP) 
09 736 PRINT .<- 
09 737 REL_VBN: 'XB '=!8UB. - 
09 738 PRE_CCTL: 'XB> 
7E 4B AS 9A 309F 739 MOVZBL BDBSB_POST_CCTL(R3),-(SP) 
7E 49 AS 9A OAS 740 MOVZBL BDBS$B-VAL_VBNS(R3) ,-(SP) 
OA 741 PRINT < 
OA7 6 VAL_VBNS: 'XB '=!8UB. - 
OA7 2743 POST_CCTL: iXB> 
44 A DD 4 2744 PUSHL BDBST_JNLSEQ+12(R3) ; journal sequence info 
40 A DD 7 2745 PUSHL BDBS$T_JNLSEQ+8(R3) ; journal seguence info 
3C A DD 30BA re PUSHL BDBS$T_J eH 3 journal sequence info 
38 A B 74 PUSHL BDBST_JNLSEQ+0(R3) ; journal sequence info 
C 748 PRINT < 
C 749 JNLSEQ: "XL OS ML HH 'XL> 
CD 20 PUSHL poest .JOsecn ) 
4 751 PRINT ,<* 
D 036 10S8: 'XL> 
D 7 PUSHL POBSL 105844 (R5) 
E 754 PRINT ,<* 
E 755 'XL> 
ED 27 § 90$: STATUS SUCCESS 
F4 27 RET 
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30F5 2758 -DSABL LSB 


J 14 
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F 760 -SBTTL SHOW_BLB 
F 76 
F 762 344+ 
F 163 ; SHOW_BLB == Show information from BLB. 
‘ £9 : Inputs: 
: rer 3 4(AP) = Address of BLB in local memory. | 
F 769 : Outputs: 
Hn oom 
j one. 
Fe ore joo 
OFS 277 
OFS 774 ~ENABL LSB 
OF5 2775 SHOW_BLB: : 
001C 30F5 ore «WORD “M<R2,R3,R4> 
53 04 AC DO 3OF? 277 OVL 4(AP) ,R3 ; get address of BLB into R3 
A 778 ENSURE 16 
11 779 IP 
FC AS =D SCd311C~=—s 2780 PUSHL  =-4(R3) ; real address of BLB 
11F re) PRINT «a 
11F 7 § BLB Address: !XL> 
312C 27 PRINT 0,<- 
166 7 4 eceeeoeoceen-> 
139 2785 KIP 1 
7E 08 AS) 9A 142 2786 MOVZBL BLBSB_BID(R3) ,-(SP) 3; block ID 
63 DD 3146 2787 SHL  BLBSLFLNK(R3) ; forward BLB Link 
be 788 PRINT 2,<= 
14 789 FLNK: XL ~ 
148 2790 BID: 'xB '=!8UB.> 
7E 09 AS GA 3155 2791 MOVZBL BLBSB _BLN(R3) -(SP) ; block length 
04 A3 DD 159 64 PUSHL BLBSL “BLNK (R35 ; back Link for BLB chain 
15C 279 PRINT 2,<= 
15C 2794 BLNK: tXL 
S126 795 BLN: tee '=!8UB. >. 
16° P36 ALLOC LOCSZ,R4 ; make some space for translate bits 
7E AS 9A 317B 279 MOVZBL BLBSS BLBFLGS(R3),-(SP) ; push flags byte for translate 
D74D CF oF 17F 798 PUSHAB abe CAR ; address of translate table 
OOOO0000'EF O02 FB 3183 2799 CALLS #2,TRANSLATE_BITS 
54 OD 318A 2800 PUSHL 4 ; 
7E OA A3 QA : 6 01 oir Ree BLBFLGS(R3),-(SP) ; flags again for print this time 
19 08 BLBFLGS: 'XB AS> 
52 0B A3 9A 19D 4 MOVZBL BL BSB _MODEHELD<R3), R2 
52 6 91 1A1 5 CMPB R2- 
us 1A 31A4 : 108" 
28 9A 1" MOVZBL #6,R2 
D762 CF42 «DD OSTA 8 10$:  PUSHL BLB _TBLCR2) 
7E 0B A 9A 1A 0 MOVZBL BLBSB_MODCHELD(R3),-(SP) 
DD 1B 10 PUSHL 8 _BD0B_ADDR(R 
18 11 PRINT <7 
1B 16 8DB_ADDR: 'XL - 
1B 13 MODEHELD: 'XB 
10 x Dd 31C 14 PUSHL 
14 A DD 1C 15 PUSHL BLBSL VBN(R3 
1¢ 16 PRINT 


'AC> 
BLBSL _OWNER(RS) 
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VALSEQNO: 
PUSHL 


PRINT 
VALBLK+4: 
PUSHL 


PRINT 
VALBLK+8: 
PUSHL 


PRINT 
VALBLK+12: 
STA 


TUS 


ET 
-DSABL 


K 14 


$SEb=198¢ 
egy -!8UL. ° 


> 
BLBSL_LOCK_10(R3) 
age “LKSTS(R3) ,-(SP) 


iW 
aLBSL_RESDSC.RS) 


'XL> 
i ha RESDSC+4(R3) 
iL 
BLB$L_VALSEQNO(R3) 
ie “VALBLK(R3) 


XL - 
iXL!=!8UL.> 
ae VALBLK+4(R3) 


BLBSL_VALBLK+8(RS) 
1XL> 
BLBSL_VALBLK#12(R3) 
'XL> 

SUCCESS 
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Display RMS Data Structures 16-SEP-1984 :48:49 VAX/VMS Macro V04-00 Page 60 
SHOU.RUB ae 4 Bh: 38:28 SDA.SRCJRMS.MAR; 1 . (35) 


? rt: -SBTTL SHOW_RLB 
4 29 poee 
? 2 ; SHOW_RLB -- Show information from the RLB. 
? 38 Inputs: 
34 33 : 4(AP) = Address of buffer containing RLB. 
32 3? : Outputs: 
54 8 : 
2 23 y RLB displayed. 
54 2861 © 
54 B66 SHOW_RLB: 
001C 54 86 » WORD “M<R2,R3,R4> 
53 04 AC DO i bes or tias | aa ; get address of block buffer 
72 6 KIP 1 
FC ASOD 78 508 PUSHL =4(R3) 3; push virtual addresss of RLB 
ste 868 PRINT 1,<= 
7E 2869 RLB Address: !XL> 
gap 3870 TPRINT 0,4 
298 287 IP 1 
7E 08 AS 9A Al B58 MOVZBL RLBS$B_BID(R3),-(SP) 
63 DD AS 874 PUSHL RLBSL_LNK(R3) 
A? 2876 LNK: tx - 
2A7 Brg BID; iX6 '-!8UB.> 
7E 09 A3 9A spe 878 MOVZBL RLBSB_BLN(R3) ,-(SP) 
10 A3. DD «3288 «2879 PUSHL RLBS$L-OWNER(R3S) 
$BB 3B OWNER: iene fee '-!8UL.- 
BB Bae BLN: iXB i-i8uB.> 
7E 06 A3 3C 2c 88 MOVZWL RLBSW_RFA4(R3) ,-(SP) 
OC AS” DD cc 884 PUSHL RLBSL_RFAO(R3) 
CF Hi RFAO: ical Tec t~!8uL. - 
CF +t RFA4: XW '=!8UW.> 
7E OA A3 GA D : 3 MOVZBL RLBSB_TMO(R3) ,-(SP) 
6 | en | ae 
ED 531 " ALLOC = ALLOCSZ,R4.— 
7E A3 9A FF 35 MOVZBL RLBS$B_FLAGS(R3),-(SP) 
D4B9 CF oF 03 + PUSHAB R 
00000000 ' EF 9 8 3 CALLS #2, TRANSLATE_BITS 
7E OB A3 oA 5 38 MOVZBL RLBSB_FLAGS(R3),-(SP) 
14 9 PRINT 2,<- 
14 38 FLAGS: 'xB 'AS> 
1 9 ALLOC ALLOCSZ,R4 
7E 04 A3 C ; , MOVZWL RLBSW_FLAGS2(R3),-(SP) 
D4CD CF F 9 PUSHAB 
00000000‘ EF oe FB 9 § CALLS #2,TRANSLATE_BITS 
4 gp 43 9 PUSHL 
7E 04 A3 C 4 904 MOVZWL RLBSW_FLAGS2(R3) ,-(SP) 
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SDA.SRCIJRMS.MAR; 1 
71 915 -SBTTL SHOW_ASB 
71 818 * 
71 2917 ; 444 
4 213 3; SHOW_ASB -- Show useful information from ASB. 
71 2920 : Inputs: 
71 2921 ; < 
4 4 § 3 4(AP) = Address of block buffer. 
71 924 ; Outputs: 
bt $952 ASB Displayed 
Py splayed. 
b} $959 ate 
qt 3 g ENABLE LSB 
001C $1 930 SHOW_ASB:.WORD “M<R2,R3,R4> 
dO 73. 2931 MOVL 4(AP) ,R3 ; get address of ASB 
77 838 SKIP PAGE 
OD 7E 33 PUSHL -4(R3) 
81 934 PRINT 1,<° 
81 332 ASB Address: !XL> 
38E 2936 PRINT 0,<- 
38E 937 eeeewoeeeen=> 
39B 2938 KIP 1 
9A 3A4 939 MOVZBL ASBS$B_BID(R3),-(SP) 
9A 33A8 2940 MOVZBL ASB$B~ARGCNT(R3) ,-(SP) 
3AC 941 PRINT 2,<- 
3AC a8 ARGCNT 'XB '='8UB. - 
sas 943 BID: 'xB '=!8UB.> 
9A 9 2944 MOVZBL ASBS$B_BLN(R3) ,-(SP) 
DD 338D 2945 PUSHL ASB$L~FABRAB(R3) 
3c0 946 PRINT 2,<- 
4 947 FABRAB: XL - 
C 948 BLN: 'xB '=!8UB.> 
3c CD 2949 MOVZWL ASBS$W_STKLEN(R3) ,-(SP) 
DD 3300 2950 PUSHL ASBSLTERR(R3) 
3D 951 PRINT <- 
3D 926 R: ' ~ 
3 953 STKLEN XW '=!'8UW.> 
3c «3360 «62954 MOVZWL ASBSW_STKSIZ(R3) ,~(SP) 
DD 3E4 2955 PUSHL ASBS$L_SUC(R3) 
E7 328 PRINT .< 
E7 2957 SUC: 'XL - 
E7 328 STKSIZ ‘XW t=! 8UW.> 
F4 9 SKIP 1 
DE FD 960 MOVAL ASBSL_REGS(R3) ,R2 
DO 3401 2961 MOVL (R2)+,=(SP) 
404 96 PRINT 1,<- 
404 29635 R6 inh 
DO 3411 964 MOVL (R2)+,-(SP) 
414 2965 PRINT 1,<- 
414 2966 R7 ay 
DO 3421 96 MOVL (R2)+,-(SP) 
424 96 PRINT 1,<- 
424 9 R8: 145) 
DO 3431 970 MOVL (R2)+,-(SP) 
434 971 PRINT 1,<- 
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RMS Display RMS Data Structures 16-SEP-1984 01:48:49 VAX/VMS Macro v04-00 Page 64 RI 
v04-000 SHOU.RIB oreEE a1 382 $5:98:48 USDALSRCIRMS MARS 1 : (33) v( 
4A4 2994 -SBTTL SHOW _RJB 
4A4 2995 
4AG 389 p++e 
ry 4 ; SHOW_RJB == Show information from the RJB. 
4A4 399 3; Inputs: 
4A4 00 ; 
rey 0 3 4(AP) = Address of buffer containing RJB. 
4A4 30 : 3; Outputs: 
tne 005 RJB displayed 
: splayed. 
4AG 0g : : | 
4A4 300 
4A4 3008 SHOW_RJB: 
001C AG 009 . WORD “M<R2,R3,R4> 
53 04 AC DO 34A6 3010 VL 4(AP) ,R3 ; get address of block buffer 
4AA 3011 ENSURE 
4C2 big KIP 
FC AS) =6—DD «0O34CB OC PUSHL <-4(R3) ; push virtual addresss of RJB 
4CE 014 PRINT <- 
34CE 3015 RJB Address: !XL> 
34DB 3016 PRINT 0,<- 
4DB 017 peewee ococee==> 
4E8 3018 KIP 1 
7E 08 A3 9A 4F1 $058 MOVZBL RJBS$B_BID(R3) ,-(SP) 
63 DD 34F5 3020 SHL RJBSQ~CHAN(R35 
3477 021 PRINT 2,<- 
34F7 bse CHAN: XL - 
seh! 023 BID: 'xB '=!8UB.> 
7E 09 AS 9A 3504 3024 MOVZBL RJBSB_BLN(R3) ,-(SP) 
04 AS OD 508 025 SHL RJB$Q_CHAN+4(R3) 
508 026 PRINT 2,<- 
50B 3027 CHAN+4: 'XL - 
$298 028 BLN: 'XB '=!8UB.> 
51 44 ALLOC ALLOCSZ,R4 
7E OA A3 3C $2 A 3030 MOVZWL RJBSW_FLAGS(R3),-(SP) 
D61A CF oF 5 031 PUSHAB J 
OOOO0O000'EF O02 FB 35 O36 ALLS #2,TRANSLATE_BITS 
54 DD 5 03 PUSHL 
7E OA A3 3¢ 538 034 MOVZWL RJBSW_FLAGS(R3) ,-(SP) 
SSF 035 PRINT 2,<- 
e7f B39 FLAGS: ‘XW 'AS> 
28 833 


STATUS SUCCESS 
04 RET 
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RMS p isp lay RMS Data Structures i ot dt b+ O338:22 AX/VMS Macro V04-00 Page $3 
v04-000 SHOW _MJB -SEP-1984 03:35:48 ([CSDA.SRCIRMS.MAR;1 (23) 
54 re -SBTTL SHOW_MJB 
4 41 ; 444 
? ts ; SHOW_MJB == Show information from the MJB. 
334 3 Inputs: | 
22 ‘$ : 4(AP) = Address of buffer containing MJB. 
$34 48 : Outputs: 
554 50 : MJB displayed. 
at Hy 
554 3053 SHOW_MB: 
001C 554 054 » WORD “M<R2,R3,R4> 
53 04 AC 00 226 B22 Poy ae a) ke ; get address of block buffer 
572 §3$ SKIP 
FC AS” ODD 278 p26 phiae pe ; push virtual addresses of MJB 
57E 3060 MJB Address: 'XL> 
58B 3061 PRIN < 
3358 3068 KP 
7E 08 AS 9A 35A1 064 MOVZBL MJB$B_BID(R3),-(SP) 
7E OC A3 9A ane $002 edt MJB$B_JNL(R3) ,-(SP) 
sh 067 JNL: "XL - | 
5A9 3068 BID: 'XB '=!8UB.> 
7E 09 A3 «9A 3586 3069 MJB$B_BLN(R3) ,-(SP) 
10 A3-—sODD 338A 970 PUSHL HJBSO_DESC (RS) 
358 iH DESC: XL - 
5BD 73 BLN: 'XB '=!8UB.> 
14 A3 DD eee bee eet BIGSE DESC SIRS) 
SCD 3076 DESC+4: XL > 
1C A3 DD SDA 144 PUSHL MJB$Q_10SB+4(R3) 
18 AS DD 208 4 perat parearnee tha) 
360 6 0 10SB: XL - 
5E 081 I0SB+4: 'XL > 
5ED 30 $ ALLOC ALLOCSZ,R4 
7E A3 C SFF 8 MOVZWL MJBSW_FLAGS(R3),-(SP) 
D575 CF F 603 4 PUSHAB mJ AR 
00000000 ‘EF 9 4. yt 0 5 pakts #6. TRANSLATE BITS | 
7 OA AS 3¢ ep 6 ; MOVZWL MUBSW_FLAGS(R3) ,~(SP) | 
Ole, a i 
614 a89 FLAGS: 'XW 'AS> | 
621 0 STATUS SUCCESS | 
04 3628 3091 RET | 
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_GBH 
6 9 95 .SBTTL SHOW_GBH 
6 3 95 s444 
2 4 38 ; SHOW_GBH == Show useful information from Global Buffer Header. 
2 9 a : Inputs: 
? : 139 : 4(AP) = Address of block containing GBH. 
629 10¢ : Outputs: 
629 31 : 
? 4 | : ; GBH displayed. 
629 3106 * 
oore 3699 3109 SHOW_GBH: WORD “McR2,R3,R4> 
53 04 AC DO 3628 3108 MOVL 4(AP),R 3 qet address of block buffer 
62F 109 SKIP P 3; Tormat displ ey 
FC AS) =6DD «03636 =—53110 PUSHL <=4(R3) 3; address of GB 
3639 a11§ GBhi Address: !XL> 
$778 Wz Act 0,<- 
3008 3148 SKIP 1 : one Line down 
7E 08 AS 9A 365C 116 MOVZBL GBHS$B_BID(R3),-(SP) 
63 DD 3660 117 PUSHL GBHSL_ _GBD_FLNK(R3) 
366 a RIN 2S 
3065 3120 BibT tN (XB t=!8uB.>" 
7E 09 A3 9A 366F \$) MOVZBL GBNSB _BLN(R3), - (SP) 
04 A3 OD 3676 } ¢ PUSHL genet. GBD _BLNK(R3) 
NT geal | ere 
ob? 126 ALLOC ALLOC 
7E AS 3C. «(3695 «3127 MOVZWL GBHSW S2,R6 _FLGS(R3) ,-(SP) 
D28F CF oF 699 3128 PUSHAB 
00000000'EF ge FB 990 ] ; CALLS a TRANSLATE_BITS 
7E OA A3 3C 6A6 131 MOVZWL GBHSW_TRC_FLGS(R3),-(SP) 
ery 138 FLGS eso tic sine 
20 AS. —-DDSs«36B7 134 "  PUSHL GBHSL_TRC_FLNK(R3) 
28 AS DD 6BA 135 PUSHL GBHSL_ GBD- ART(R3) 
ep i $ GBD STARTS fh - 
6BD 31 4 TRC_FLNK: 'XL> 
24 a3 bd 36CA 31 PUSHL GBHS$L_TRC_BLNK(R3) 
2c AS) «DD «36CD «3140 USHL GBHS$L_GBD~END(R3) 
é09 143 GBD_END tee: KL 
6D 128 TRC~BLNK: ixt> 
3 A3 DD 36DD 144 PUSHL GBHSL_ SCAN puning} 
0 AS OD 36E 145 PUSHL GBH$L_GBD_REXT(R3) 
ef 123 GBD mexts fh 
6E 148 SCAR_NUM: ixct=! 
38 AS) «6D SO36F0 14 PUSHL GBHSL “AITER3) 
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176 -SBTTL SHOW_GBD_SUM 
174 ; 444 
175 ; SHOW GBD_SUM -- Show summary of GBD information. In this case that's 
178 ; all Ehere is in a GBD. 
178 Inputs: 
! y : None. 
} § : Outputs: 
184 : None. 
1 5 ENA LSB 
188 SHOW_GBD_SUM 
189 ~WOR “M<R2,R3,R4,R5> 
190 BBS #OPTSV RGODSUM, RMS_DIS_OPT1,10$ 
191 5$: BRW 90$ 
135 10$ MOVAB GBD,R2 ; set up R2 with block, puff, edéress 
137 MOVL GBH-4 ,-4(R2) ; begin to set up for '' GBD 
198 ASSUME GBHSL_GBD_FLNK EQ 0 
197 MOVL GBH ,GBD$L_FLINK(R2) ; set up forward Link 
198 BEQL 5$ 
199 SKIP PAGE 
soy PRINT 0,<- 

01 GBD Summary> 
208 PRINT 0,<- 

Oe cs A 5" aye scale mt eee > 

04 KIP 1 
$o2 PRINT 0,<- 

06 GBD USE REL CACHE _> 
a4 PRINT 0,<- 

08 Address CNT $1ZE NUMB VBN VBNSEQNUM ADDR LOCK_ID FLAGS> 
PRINT 0,<- R 
11 SKIP 1 

\¢ ALLOC ALLOCSZ,R4 

1 CLRL ; R3 = count of GBD's 

14 MOVL GBHSL_GBD_BLNK+GBH,R5 ; R5 = address of last GBD 

i ADDL2 GBH-4,R5 3; make absolute address 

17 208: ADDL2 <-4(R2),GBDSL_FLINK(R2) ; make rel addr abs addr 

18 GET GBD, ,@GBDSL_ CIN WR2) »,90$ 

} INCL 3 count the GBD's found 

1 OVL #ALLOCSZ, (SP) 

: MOVZBL GBD$B_FLAGS(R2),-(SP) 

PUSHAB G He 

4 CALLS #2,TRANSLATE_BITS 

5 PUSHL R 

§ PUSHL GBDSL_LOCK_ID(R2) 

MOVZBL GBD$B_ CACHE _VAL(R2),-(SP) 
8 PUSHL GBD$L- REL _ABDR(R2) 
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RMS Displa a Data Structures 16-SEP 4 Ag? Macro V04-00 Page 69 
v0z-000 SHOb. ees Breer abs Bbishicg PARC WeS Macro V04" oe 82, 
10 A2. DD 3, PUSHL GBDS$L_VBNSEQNUM(R2) 
o¢ A D PUSHL GBD$L-VBN(R2) 
7E #18 A C 384 MOVZw! GBDSU_NUMB (RE) ,- (SB) 
7E «#1AA C 384 MOVZWL GBD$WSIZE(R2) ,-(SP) 
7E 200A C 3848 MOVZWL GBDSW-USECNT(R2),-(SP) 
FC Ae DD 384C 4 PUSHL  <4(R2) 
4F 5 PRINT 10,<= 
4F $ ‘XL !3uw '5UW !SuW !7SL IXL IXL !3UB !XL !AS> 
55 FC ag D1 5 CMPL = =4(R2),R5 : is it last GBD? 
g 13 $ 8 BEQL ge 3 eql yes 
FF8O 8 8=—_- 331 ? ip BRW $ 3 go back for more 
53 oD 6 rh 80$: 4 by gs ; print count of GBD's 
79 1 PRINT 1 /<- 
87 44 'BUL. GBD's> 
7D 3245 
87D 46 90$: STATUS SUCCESS 
04 3884 324 RET 
885 3248 .DSABL LSB 
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RMS Display RMS Data Structures 16-SEP-1984 01:48:49 VAX/VMS Macro v04-00 Page 70 
V04-000 SHOU. TRACE oreEe= 158 Os:88:48 LedaveRctams mans] 9 (56) 
; 0 -SBTTL SHOW _TRACE 
g tes 
; SHOW_TRACE == Show trace information from trace block pool. 
22 : Inputs: 
3s : 4(AP) = Address of trace queve header in SDA process | 
85 28 3 bred = Address of trace queue header in dumped process 
85 59 ; 12(AP) = Trace flags (l=yes) | 
85 60 ; 16(AP) = Depth to trace (O=all) 
3 é ; Outputs: 
ass ee ; Trace contents dumped to current output file/device. 
85 3266 * 
885 83 -ENABL LSB 
885 o8 SHOW_TRACE: 
O3FC 885 6 WORD “M<R2,R3,R4,R5,R6,R7,R8,RI> 
54 04 AC 7D 3887 70 MOVQ 4(AP) ,R4 ; get arguments 
56 OC AC 7D 3888 71 MOVQ 12 (APS ,R6 3; more arguments 
52 OOO0145E'EF DE 388F a MOVAL TRC,R2 ; address of TRC block buffer 
Be en 
3896 e : Note well that trace queue is a self relative queue! 
896 6 : R2 = Address of trace block buffer (in SDA) 
896 78 ; R4 = Address of trace queue header (in SDA) 
896 79 ; RS = Address of trace queue header in process being dumped 
896 80 ; R6 = Trace Flags 
896 81 ; R7 = Depth (O=all) 
eae 
04 A2 04 A4 DO 96 84 3$ MOVL 4(R4), TRCSL_BLNK(R2) ; move q header back Link 
12 3898 85 BNEQ 5$ : if neq queue is not empty 
027B 31 3890 86 BRW 90$ : if eql empty queue 
FC A2 55 0d00 38A0 rH 5$ MOVL R5,-4(R2) : fake up address of tre block 
BAG 8 ; from address of queue header 
62 64 OD AS 8 MOVL (R4), TRCSL_FLNK(R2) ; set up to scan queue from front 
a a A7 0 TSTL R7 3; check trace depth 
47 = 1 Ag 91 BEQL 15$ ; do entire q -- we're already set 
59 04 A4 DO 38AB 38 MOVL 4(R4) ,R9 ; begin to form real address of end 
7... tas AF 9 ADOL BaoRY ; form real address from self rel one 
57 3606 2 94 INCL R ; bump depth to account for algorithm 
xe? 32 | 
ape 39 : At this point, we have a non-zero depth. We will scan the trace queue 
4 4 3; from the front until we have passed over the necessary number of queue 
4 99 ; entries. No dumping is done at this point, as we are going in the wrens 
4 0; order. After we have passed over the proper number of queue entries, the 
4 1; we will enter the loop that scans them in the other direction, dumping 
r § 3; as it goes. | 
4 4; R2 = address of trace queue block buffer ( TRC ) 
4 5 ; R? = Depth (initially +1) 
4 6 ; R9 = Address of last trace queue entry (when we get there we're done) | 
} 


———_—_—__— 
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Bnee tkace gre ee bbe bs iaeicg FQAAMeS Macro, yO: 9° (36) 
84 6 ; 
62 FC A2~ C0 B4 10$: ADDL -4(R2) , TRCSL_FLNK(R2) ; make self-rel q absolute address 
B 1 GET TRC, ATRCSL_FCNK(R2),90$ ; get next trace queue element 
a6 lO 1 DECL R7 + count this one in the down count 
09 «13 1 BEQL 15$ 3 we've done enough 
59 FC Ag D1 135 128: CMPL -4(R2),R9 3; are we done Fg. all elements? 
C 12 1 BNEQ 10$ ; if neq no, do some more 
FFAS 31 : BRW 3$ 3; yes, too bad. Go dump them all. 
1 3 
18 ; Now we are about to go into th he ay which scans from the ey 
19 ; element currently in the TRC block buffer, forward until t 
; 2 5 Many of the queue. The TRC block buffer either has the depth+1'th 
8 ; element in it, or it has enough of the queue header such that 
3 3; scanning forward from it will work. 
9 6¢ DO 325 15$: MOVL TRCSL_FLNK(R2) ,RO ; begin to form address of newest entry 
59 FCA co ; ADDL =4(R2),R9 ; turn it into absolute address 
§ ; Set up constant part of header 
33 
$3 
3 PRINT 0,<- 
33 RMS Trace> 
33 PRINT 0,<- 
3 eeceescecn > 
3 SKIP 3 
3 ALLOC ALLOCSZ,R4 3 set up translate bits buffer 
33 PRINT 0,<= 
4 Pp TRC> 
PRINT 0,<- 
OPERATION IN STRUCTURE VBN SEQUENCE ADDRESS> 
PRINT 0,<- 
emerson oe —s Some nem ewe eeceoeonn wececene> 
SKIP 1 


pointer ~ TRC block buffer 
trace fla 


R2 
R6 
R9 = pointer + latest entry in the trace queue, after which we should stop 


04 A2 FC A2 (C0 20$: ADDL -4(R2) , TRC$L_BLNK se) ; turn rel into absolute address 


GET TRC, @TRCSL_BLNK(R2),90$ : get next trace block 


Process this trace block for display information 


SN NN OUMIMUMIMIUMIMIVION TF HMMIMVUIN © SO OF OO OOOO OOUPIPININPININPINININGV TNO ONO 


DODOOOSOAAAOOOOOUES LS LW "QO00 nn renner 


WOOWOOOOOOOO0O0000000000 0000000000 0000 00 00 C0 CD CD 00 


56 =OOA ag BITL TRCSW_FUNCTION(R2),R6 ; is this trace block wanted? 
BNEQ 1$ 


WRI SO OD NAU EWN 9 OO NA UENO OO NIAUE WIN OS OONAU EWN OC OONOU SW" OUOOnI 


HAAN AIA AAA AAA AANA ANAAAANAN AANA AA AANA AA AIAAA NWA AANA 
Sees 

33 

ovo 

WIWNWAWAI ANIA AAA AANAA WAN AWW 


oOwo 
o—nw 


o 2 RW 0$ 
6€ 00000087 8F MOVL #ALLOCSZ, (SP) ; renew translate_bits buffer 


™ 
— 
wn 


| 
| 
SKIP PAGE 
| 
| 
| 
| 


7E A 
cF7D 
00000000 ' EF 


7E 


On 
OofLvuo 


7E 


OA A2 
3 


6€ 00000087 8 
20 


CDAE 
05 OA A2 


¢ 

0 

6E CO7D C 
QOOOO000'EF 02 
5 
20 A 


1 
20 A 


18 A2 

SA 

6— 00000087 4 
18 A2 

00000000" EF . 
18 A2 


6€ 00000087 1 


1¢ Ag 
QOOO0000'EF 0 


OMRHNHMMMMOOCOCVCVOVVCTVIVTVVIVGANOCCCWWIW 
RNOOOCV WDD SRB VOWOOOOOMOOO POOOWOONWOVU 


oo 


Fe ee ee ee ee oe oe et et et oe ek et A aad ad ad adalah ab edatebahinbiahieiieiin! 
Ret tt ODO DODOO0O0 OOOO OOO OO 000 00 09 09 09 09 09 09 09 09 SI NIN NIN NSIS NIN NOAA AO 


DONA NEW OOD NAME WIN S OOO NIA UE WIN 9 OO “IANS WO OO NAUES WN OOONOUS 


PPrPrPrrrrrr rrr rrr rr rrr rr rr rPOOOOOOVDODOOODOOOVOVDODOOOOOOOOOOOOO 


OIA WWW SS SS 
MNOON FT ONOUD Sonn NOPD 


play RMS Data Structures 
~ TRACE 


MOVZWL 


PRINT 
'9QAS !XW IXL !7U 


BITL 
BEQL 


228: CALLS 


25$: PUSHL 


: Symbolize the 


30$: TSTL 


piemematennctntstialatintas + 


16-SEP-1984 01:48:4 AX/VMS Macro V04-00 Page 72 
~SEP-1984 $3: 98503 USDA SRCIRMS MARS 1 . (26) 
TRCSW_FUNCTION(R2),-(SP) ; put bits to translate 
i i CHR ; translaticn table 
#2,TRANSLATE_BITS i do the translation 
-4(R2) ; virtual address of trace block 
TRCSW_SEQNUM(R2),-(SP) ; sequence number of this trace block 
TRCSL_VBN(Re) 
TRCSL_STRUCTURE (R2) 
TRCSW_PID(R2) ,-(SP) ; just process index portion of pid 
ae 3; the function type 
® 'Suw 'XL> 


Mme 
MA 
PQ 


: Tf eql no, just do return 


Dump the argument flags for cache and release 
If not cache or release, just dump return status (ARG_FLG for now) 


#ALLOCSZ, (SP) 
TRESL ARG_FLG(R2) 


RLS 
#GBASV_RLS_IN, TRCS$W_FUNCTION(R2) ,22$ 
CSH_CHR, (SP) 
#2, TRANSLATE_BITS 
RG 
TRESL_ARG_FLG(R2) 

: ARGFLG=!XL !AS> 
30$ 
TRESL_ARG_FLG(R2) 

RO=!XL> 


| 
BHSM_CACHE_IN!GBHSM_RLS_IN>, TRCSW_FUNCTION(R2) ; interesting 


return addresses 


TRCSL_RETURN1 (R2) should we dump returns? 
if returni=0 then no. 


| 
reset string buffer 
| 
| 
| 


#ALLOCSZ, (SP) 3 . 

; address of buffer descriptor 
TRCSL_RETURN1(R2) ; address of return 
#2,SYABOLIZE 3 get string for this symbol 
R1 ; address of descriptor 


TRCSL_RETURNT (Re) ; address itself 


#ALLOCSZ, (SP) 


TRCSL_RETURN2(R2) 
#2,SYABOLIZE 


RETURN=!XL !AS> 


<2 | 


| 
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V04-000 SHOU, TRACE orSeen SB Osi a8ica LebaVeactams mans] 9 (26) 
51 DD 3A5C 3421 PUSHL R1 
1C A2. OD A2t : § perat arts RETURN2(R2) 
A61 34204 ‘ 1XL !AS> 
As 
AGE 34 : : If this element is PrReaL: then dump the BDB information held within | 
Age r 8 ; the element. Ailow TRCSL_BDB_ADDR = 0 to signal no BDB information. 
AGE 3430 ° 
24 A2 rf A 431 35$ TSTL TRCSL_BDB_AODR(R2) : if the address = 0 | 
o> 1 A 4 § BEQL 40$ : if eql yes, skip BDB | 
EA D 3A7 4 PUSHL TRC$L_BDB_ soothe: 3; buffer sequence number 
7E AA 3 A76 3434 MOVZWL TRC$W_BDB_BUFF(R2) ,-(SP) 
7E «OCA A 3A7A 3435 MOVZBL TRC$B~BDB-C CHE (RES -(SP) 
7E sf A 3c 3A7 4 § MOVZWL TRC$W_BDB “USERS CR »,~-(SP) 
4A DD a r pene TRCSL_ BDB_ADDR(R2) 
A85 239 ‘ BDB=!XL U=!4UW C=!XB B=!XW S=!XL> 
As ite 
A9 44 : Interpret and dump flags, if any. 
<i beep es ee ors 
2D A295 $A92 $445 TSTB_ J RCSB_BDB_FLAGS(R2) | 
6E 00000087 $i DO 3A97 409 MOVL #ALLOCSZ, (SP) 
7 cok AF 3h AUS sh BBLTRL RENEE. FLAcs cays 
O0000000'EF 02 AA6 3450 CALLS oe. TRANSLATE_BITS 
Home 
AAF re F=!AS> 
hae 
ABC +28 : Print the BLB trace information if the TRCS$L_BLB_ADDR doesn't equal zero. 
ABE 3488 | 
34 a2 db mac 435 40$ ist yRcst. BLB_ADDR(R2) 
3C A2 DD 3AC1 3461 PUSHL TRCS$L_BLB_SEQ(R2) ; blb sequence number 
8A DD 3AC4 186 PUSHL TRC$L_-BLB_LOCK(R2) 
53 2A 9A 3AC7 346 MOVZBL TRESe. BLB_MODE(R2) ,R3 ; et the mode held byte 
08 91 3ACB 3464 CMPB : 1§ it less then 6 
O$ 1A 3ACE 3465 erry 438" : if gtru then yes | 
3 $ 9A 3AD £96 MOVZBL #6 3 set to 6 (i.e. 
CE38_CF4 DD 3AD 467 42$: PUSHL SLB T BLCR3) > set translation tase args 
A2 DD ADB 468 PUSHL TReSL BLB _ADDR(R2) | 
AD £96 BLB=!XL M=!AC L=!XL = S=!XL> | 
AEB 8092 | 
AE 138 : Interpret flags (if any). 
AEB Sc78 | 
33 A295 «(SAEB 347 TSTB =‘ FRC$B_BLB_FLAGS(R2) | 
ag 3 AEB 133 BEQL 50$ 


6E 000000 
a 
CdD 
00000000'EF 
a 


7? 8F 
3 Ad 
4 CF 
2 
4 


° 03 


FE4A 


p isp lay RMS Data Structures 
SHOW_ E 


AX/VMS Macro V04-00 Page 74 


SrSEp=1986 05:38:48 


OW_ TRAC SDA.SRCIRMS.MAR; 1 (26) 
0 3AED +78 MOVL TRESS BL (SP) 
3A Ars 479 mOVZBL I TRC 8 LB. FLAGS (R2),=(SP) 
FB SAF 481 CALLS | OPRANSLATE BITS 
DD 38 4 § PUSHL R4 

B 4 PRINT 1,<- 

aY3 rt 2 F=!AS> 

4 2 g: : End of display, loop for next trace element 

Bid 3488 ° 
D1 B1 if 50$ CMPL -4(R2) RO s 4 hi h ? 
a+ r coer ote 2 s this the last element 
31 HY o3) BRW 20$ 
06 Big 438 90$: gates SUCCESS 

83g 495 -DSABL LSB 


<z 


N 15 
eee ay we Data Structures 
SHOW_N 


497 ~SBTTL SHOW _NAM 
135 i: 
499 ;444 
5 3 SHOW_NAM == Show valuable information 
¢ : Inputs: 
2 : ; 4(AP) = Address of NAM block in 
506 : Outputs: 
ii 
: one. 
510 
g]5 SHOWLNAM: oy amcr2.R3,R4 
. @M<R2,R3,R4> 
52 04 AC 5 218 OVL (AP) ,R2 
14 A 9 3514 PUSHAL NAMST _DVI.(R3) 
OC A C 515 USHL AMSL_ESA(R2) 
7E OBA F 3516 MOVZBL NAMS$B_ESL(R2),-(SP) 
04 A 3 3517 PUSHL NAMSL-RSA(R2) 
7E O3 A 6 518 MOVZBL NAMSB_RSL(R2) ,-(SP) 
3B3A 519 PRIN 5,<- 
A 3520 Resultant String Name: !AF!/- 
A 3521 Expanded String Name: 'AF!/- 
3B3A 35 § Device Identification: !AC> 
B47 524 
47 3525 
54 3526 ALLOC 80,R4 
34 A2 6 527 PUSHL NAMS$L_FNB(R2) 
C558 CF B69 528 PUSHAB NAM_CHR 
00000000 ‘EF 02 60 293 CALLS #2, TRANSLATE_BITS 
54 74 3530 PUSHL 
34 A2 76 531 PUSHL NAMSL_FNB(R2) 
9 3533 Status Bits (FNB): 'XL 'AS> 
30 A2 6 230 PUSHL NAMSL_WCC(R2) 
9 3535 PRINT 1,<=- 
9 3536 Wildcard Context: 'XL> 
6 3537 RET 


18 Bh 


AX/VMS Macro V04-00 


$963 
33:48 CSDA.SRCIRMS.MAR; 1 


in NAM block. 


"Block Buffer’’. 


Get address of buffer in R2 
Push address of Device ID Field 
Expanded string address 

; Expanded string length 

; Resultant string address 

; Resultant string length 


RVN File # 


; Allocate buffer for status bits 
; Set up args to TRANSLATE BITS 
3; Character translation table 


; Send buffer to print routine 
; Send bare bits too 


; Set up wildcard context bits 


—TOMMOOM FS Br Ke TOMMOODZ El KOK TO MMOOOZ EB KC Ke TO NVMOOOZ BO KCK TO NMOOW 
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RMS Display RMS Data Structures . 16-SE 
v0z-000 GET IFAB ono 


.SBTTL GET_IFAB 


;GET_IFAB =~ Get and Verify IFAB from Dump. 
; Inputs: 

4(AP) = Block Buffer. 

: Outputs: 


Buffer contains IFAB if success. 
If ae BUFFER-4 = 0. 


GET_IFAB: 
B97 . WORD 


AM<R2,R3,R4> 
MOVL = 4CAP 
GE THEM a-4(R$), (R3) ,#IFBSC_BLN 
CPB #1F8$C_B1D,1FBSB_BID(R3) 
90$: STATUS SUCCESS 


RET 
99$: STATUS INVBLKTYP 
100$: RET 


53 04 AC ; Get address of buffer 


15 50 
08 AS 0B 
08 


no ODF 
La 
besdosdocdectesdesdestoctectectectesDoctectectscducteste ste] 
rPoOOowowowowowowowowowowowowonowvowono 
9 ON 
WWNNNANNAANA NANNING NANNING 


rah ab ab dh sb Ah Ab db Ah dh ab db dh ab dh eb de db ah ab eh ab eh eb ed ee! 
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Dx §-8 ety) 83:38:28 SDA.SRCIJRMS.MAR; 1 (28) 
BC e ~SBTTL GET_IDX 
BC p+44 
+! é ; GET_IDX -= Get and verify Index descriptor. 
BC : Inputs: 
Bt 571 
BC te : 4(AP) = Address of block buffer. 
BC 373 3 
BC 574 ; Outputs: 
BC 73 3 
43 6 : Buffer contains index descriptor. 
BC 278 
BC8 579 GET_IDX: .WORD *M<R2,R3,R4> 
BCA 289 MOVL 4CAP),R ; address of buffer 
BCE 3581 GETMEM @-4(R$),(R3) ,MIDXSC_FIXED_BLN+32 
BE 286 BLBC RO 
BE 38 CMPB ss #IOX$C_BID, IDX$B_BID(R3) 
BE7 584 BNEQ 
BE9 585 90$: STATUS SUCCESS 
3BFO 3586 RET 
3BF1 3587 99$: STATUS INVBLKTYP 
3BF8 3588 100$: RET 


D 16 


Bi sph ay RMS Data Structures a et eb TEE! Be AX/VMS Macro V04-00 Page 7 
GET_FW “SEP=1984 35:48 SDA.SRCJRMS.MAR; 1 ( 
BF9 3590 -SBTTL GET_FWA 
BF 591 i+ 
BF 236 ; GET. FWA == Get and verify FWA if any. 
BF 593; 
BF9 3594 ; Inputs: 
BF9 3595 ; 
BF9 239 : : 4(AP) = Address of block buffer for FWA. 
BF9 359 : 
BF9 3598 ; Outputs: 
BF9 3599 : 
BF9 3600 ; Buffer contains FWA. 
BF9 o8) i--- 
BF9 36 § 
001C BF9 605 GET_FWA:.WORD “M<R2,R3,R4> 
53 04 aC DO 3BFB ope MOVL 4 CAP ; address of buffer 
BFF 3605 GETMEM @-4(R3),(R3) ,#FWASC_BLN 
17 50 €9 3C€11 3606 BLBC 
SF BF OSEB C3 91 C14 3607 CMPB FWASB _UNDER_DEV(R3) ,#*A'_' ; is there an underline in the 
3C1A 3608 ; right place? 
08 12 3C1A 3609 BNEQ 99$ 
3C1C 3610 90$: STATUS SUCCESS 
04 3C€23 3611 RET 
3024 z016 99$: STATUS INVBLKTYP 
04 3C2B 3613 100$: # RET 
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53 
63 


F 16 
RMS Data Structures 16-SEP-1984 :48:49 VAX/VMS M v04-00 
3 Toe Panes eR ea eee 


VO4-000 ee 
se ~SBTTL GET _WCB 

GET_WCB == Get and verify Window Contol Block from dump. 
Inputs: 

4(AP) = Address of block buffer. 

Outputs: 


Block buffer contains WCB. 


GET_wWCB: 
«WORD “M<R2,R3,R4> 


MOVL 4(AP).R 
GE THEN a4 (RS) , (RS) ,AWCBSC_LENGTH#512 
CPB #DYNSC_WCB,WCBSB_TYPE(R3) 

90$: STATUS SUCCESS 

STATUS INVBLKTYP 
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PAPA AAAAAAAAA AAA A AAO AAAO 
re at eal eat eal ate eae eal ea eal es alae Pe ee ee 
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RMS Data Structures : i et tat 04:98:22 cee Macro Vv04-00 


QOOPTWWWD S SP 0000000000000 0.0 
MNANS OG SOMMmMmMmMmmMmMmmmmmmmmmmmmm 


WA 


4 SDA.SRCIJRMS.MAR; 1 
-SBTTL GET_FCB 
: GET_FCB == Get and verify File Control Block from dump. 
Inputs: 
4(AP) = Address of block buffer. 
Outputs: 


Block buffer contains FCB. 


Bete Ge Ge Ge Ge Ge Ge Ge 


GET_FCB: 
-WORD “M<R2,R3,R4> 


MOVL  4(AP 
GE TMEM a-4(R3),(R3),#FCBSC_LENGTH 
CHPB #DYNSC_FCB,FCBSB_TYPE(R3) 
908: STATUS SUCCESS 
99$: STATUS INVBLKTYP 

RET 


PARA AAAAAAAAAAAAAAASA AAA AO 
090000000000 090000098 SI NIN SINISE NIO O 


H 16 


TSi-oo Brea ie newer NESSERSIBRG SHSESAE WSSAUMRCHangeRMRSG®? Pe 
.00 «-SBTTL GET_IRAB 
: GET_IRAB == Get and Verify IRAB from Dump. 
; Inputs: 
4(AP) = Address of block buffer for IRAB. 
; Outputs: 
; IRAB in block buffer if success, R) contains 
Ms code if failure. 
GET_IRAB: 


53 04 AC 


1E 50 


1 ~WORD “M<R2,R3,R4> 
dD t address of IRAB buffer 
E 
08 AS «OA YQ 
1 1 
D 
1 


MOVL  4(AP).<R i ge 
GE TREN @-4(R$),(R3),#IRBSC_BLN_IDK ; get what is supposed to be IRAB 


R . error 
CMPB #IRBS$C_BID, IRB$B_BID(R3) ;_is this really IRAB? 
BNEQ ; if ne no, must be imposter 
CMPL §IRBSL_IFAB_LNK(R3),IFAB-4 ; is this correct IRAB for IFAB? 
BNEQ 5 if neq, then no. Error 
90$: STATUS SUCCESS 


RET 
99$: STATUS INVBLKTYP 
RET 


QOOOO1IE’EF 63 
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-SEP=19 (28) 


RMS Dis 4 01:4 
v04-000 GET 4 03:33:48 (CSDA.SRCIRMS.MAR;1 


oe -SBTTL GET_BDB 
: GET_BDB -=- Get and verify BDB. 

3 Inputs: 

; 4(AP) = Address of buffer to fill with BDB. 
; Ouputs: 
G 


NOOM— POL NDOOOOOOOOOOOovono 


WWAWWNAWINNNANNAANANAANNNAWIOI 


QQ NNN NNN NNN 


BPH EWAN Inonononoronorononorn 


FWP O ODNAUE WN OVOONAOULSWN—O 


None. 
001C ET_BDB: .WORD “M<CR2,R3,R4> 
53 04 AC DO MOVL AP),R ; address of buffer for BDB 
GETMEM @-4(R$),(R3) ,#BDBSC_BLN 
18 50 =«€9 BLBC RO, : if error in rey # access 
08 Ad OC 91 CMPB #BDB$C_BID,BDBS$B_BID(R3) ; le this valid BDB? 
08 12 BNEQ 
06 90$: ue SUCCESS 
08 AS = 06 15——s*797'1 95$: CMPB #GBPB$C_BID,BDB$B on ; is n perchance GBPB? 
F213 BEQL if eql yes, allow it. 
99$: STATUS INVBLKTYP 
04 100$: RET 
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RMS Display RMS Data Structures 1 4 AX/VMS Macro v04-00 P 4 
v02=000 GET BLS Breaks Obi aeica PARA RS Macro V04; age oh 
D4 if .SBTTL GET_BLB 
2 oS ; “Ger _BLB -= Get and verify BLB. 
2 £29 Inputs: 
d4 136 4(AP) = Address of buffer to fill with BLB. 
D40 3754 : Ouputs: 
Se 
BS i 
001¢ d49 56 GET_BLB:.WORD “M<R2,R3,R4> 
53 04 AC DO 3D4 760 MOVL 4(AP),R ; address of buffer for BLB 
D46 3761 GETMEM @-4(R$),(R3) ,#BLBSC_BLN 
15 50 €9 3D54 166 BLBC RO, if error in memory access 
08 AS 10 $1 $057 $768 CPS #BLBSC_BID,BLBSB _BID(R3); is this valid BLO? 
as 30D 765 90$: STATUS SUCCESS 
3065 3767 99$: STATUS INVBLKTYP 
04 3D6C 3768 100$: RET 


ee 


K 16 
RMS Display RMS Data Structures 16-SEP-1984 cag? Macro V04-00 Page 85 
V02-000 GET Gab gre ee 1 o8e BS 88icg FARA Mes Macro Y04; oe 83 
D6dD 3770 -SBTTL GET_GBD 
D6D 3771 ; 
D6D ag 3 GET _GBD -= Get and verify GBD. 
D6D 3773; 
D60 3774 ; Inputs: 
D6D 3775; : 
D6D £f8 : 4(AP) = Address of buffer to fill with GBD. 
D6D0 3777 ; 
D6D 3778 ; Ouputs: 
D6D 3779 ; 
D6D 3780 ; Valid GBD. 

D6D0 3781 ; 

D60 37 ¢ 
001C D6D 7 GET_GBD: .WORD *M<R2,R3,R4> 
53 04 AC DO 3D6F 3784 MOVL : address of buffer for GBD 
073 (3785 GETMEM @-4(R$),(R3) ,#GBD$C_BLN 
15 50 €9 3081 oes BLBC ; if error in oer, access 
08 A3 13 91 D84 78 CMPB #GBD$C_BID,GBD$B_BID(R3) : is. this valid GBD? 
08 12 3088 3788 BNEQ 
308A 3789 90$: STATUS SUCCESS 

04 3091 3790 
$53) 
792 


RET 
99$: STATUS INVBLKTYP 
100$: RET 


L 16 
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RMS Displa 
v04-000 GET_TR 


cgay SBTTL. GET TRC 
; GET_TRC == Get and verify TRC. 
: Inputs: 


; Ouputs: 


Gd Pete se ee ee te tes 
=z 2 
Oo ° 
= J 
® 
. 


ET_TRC: .WORD Peps Se »R4> 


BNEQ 
90$: grates SUCCESS 
99$: STATUS INVBLKTYP 
100$: RET 


00.09 09 00 09 09 C9 C9 COCO COCD CD CO COCO OO III II 


| 2 QOODKOOOOCOOWOOOOOO 
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VL CAP 
GETMEM @-4(R$),(R3) ,#TRCSC_BLN 
BLBC : ife 
CMPB «=s #TRCS$C_BID, TRCS$B_BID(R3) ; is this valid TR 


04:48:48 AX/VMS Macro V04-00 Page (38, 


4 
4 SDA.SRCIRMS.MAR; 1 


4(AP) = Address of buffer to fill with TRC. 


; address of buffer for TRC 


rror in og Fat 
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RMS Dis 
v04-000 GET 
: -SBTTL GET_GBH 

p+++ 

; GET_GBH <= Get and verify GBH. 
Inputs: 

4(AP) = Address of buffer to fill with GBH. 

Ouputs: 


None. 


ET_GBH:.WORD “M<R2,R3,R4> 
MOVL  4(AP).R 
GETMEM @-4(R$),(R3) ,#GBHSC_BLN 
BLBC R if error in omer? access 
CHB #GBHSC_BID,GBHSB_ BID(R3)'; is this valid GBM? 
0$: STATUS SUCCESS 
STATUS INVBLKTYP 
RET 


[o>] Bo Se Oe Ge Ge Ge Oe Ge Se 


; address of buffer for GBH 
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RMS 


+i Bis RMS Data Structures we yo P=1984 04:39:48 yaxivas Macro V04-00 Page (38, 


P=1984 SDA.SRCIJRMS.MAR; 1 
sone ~SBTTL GET _RLB 
i GET_RLB == Get an RLB from the dump file. 
Inputs: 
4(AP) = Address of block buffer for RiB. 
Outputs: 
RLB in block buffer. 


GET_RLB:.WORD “M<R2,R3,R4> 
MOVL GCA ; address of block buffer 
GE THER @-4(R$),(R3),#RLBSC_BLN : get memory from dump for this rlb 


MMMMmMMmMmMmmMooCVSVVTVTVVTVTVTVTTCTO @aX< 


PROPOR SS SOT oo 


AAW ANN AAA AAA AANA 
0.00 09 00 0 Cd Cd Cd OD Co CD CD OP. CD CO CD CD CO CD CD CD CD OD OD 


PEA AAD Ma BPEL LEE 


UE WN O OO NA UNE WP O OOO UNEP 


DOWD" ODOVNWONIMOAOOOOOOOOOOOO 


15 ‘ ; if error pass it back up 
08 A3 +3 CMPB #RLBSC_BID,RLBS$B_BID(R3) ; is this rlb? 
BNEQ :; if neq no -- error 
giotes SUCCESS 
99$: STATUS INVBLKTYP 
100$: RET 
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“SEP=1 SDA.SRCJRMS.MAR; 1 
-SBTTL GET_ASB 

p+++ 

; GET_ASB == Get an ASB from Dump. 

Inputs: 
4(AP) = Address of block buffer for ASB. 

Outputs: 
ASB in block buffer. 


Sete Ge Se Ge Ge Se Ge Ge 


GET_ASB:.WORD  “M<R2,R3,R4> 
MOVL 4(AP).R3 
GETMEM a4 (RS), (R3) ,#ASB$C_BLN_IDX 
BLBC R0,100$° 
STATUS SUCCESS 
100$: RET 
| 
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RMS Display RMS Data Structures SEP- 74 AX/VMS Macro V04-00 Page 
v0e-000 GET RIB "Ore ee 1 obe Osikesca Pepa ac Tame MART oe 38) 
E¢e 7 -SBTTL GET _RJB 
Ft oi ; GET -RJB -- Get an RJB from the dump file. 
E4C 91 ; Inputs: 
E4C 92; 
Fe 37 : 4(AP) = Address of block buffer for RJB. 
E4C 95 ; Outputs: 
E4C 39 3 
E4C 97 ; RJB in block buffer. 
E4C 98 jeoe 
E4C 9 
001C E4C 00 GET_RJB: .WORD “M<R2,R3,R4> 
53 04 AC 00 3E4 44 MOVL GCA : address of block buffer 
E52 39 é GETMEM 3-4cR$) (R3),#RJBSC_BLN ; get memory from dump for this RJB 
5 50 9 366 90 BLBC R error poss it back up 
08 AS 16 1 366 904 CMPB #RIBSC_BID,RJBSB_BID(R3). : is this 

12 366 444 BNEQ 3; if neq no -- error 
E69 906 STATUS SUCCESS 

04 3670 3907 RET 
a4 908 99$: STATUS INVBLKTYP 

04 3678 3909 100$: RET 
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RMS 
v04-000 


-SBTTL GET_MJB 


GET_MJB -- Get an MJB from the dump file. 
Inputs: 

4(AP) = Address of block buffer for MJB. 
Outputs: 

MJB in block buffer. 


ET_MJB:.WORD “M<R2,R3,R4> 
MOVL 4 CAP ; address of block buffer 
GETMEM a-4(R3), (R3),#MJBSC_BLN ; get Sonery from dump for this MJB 
BLBC RO, f error pass it back up 
CMPB #¥JB$C_BID,MJBSB_BID(R3); ; is” this an MJB? 
BNEQ 9$ 3 "ifn neq no -- error 
A SUCCESS 


INVBLKTYP 
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GET FAB ets Pa ee . 
p +f 3 -SBTTL GET_FAB 
FA i ; GET_FAB == Get and Verify FAB from Dump. 
EA 41 ; Inputs: 
EA 942 ; 
EA 3 3 4(AP) = Address of block buffer for FAB. 
7 ote 3 IFl = Contains the IFI of the current IFAB. 
EA 308 ; Outputs: 
EA 947 ; 
EA ac8 : FAB in block buffer if purcess. RO contains 
EA 49 ; code if failure. BUFFER-4 = if failure. 
EA 9 
EA 936 GET_FAB: 

001 EA 9 -WORD “M<R2,R3,R4> 

53 O04 AC OD EA 954 MOVL GCA 
EAC 3955 GETMEM @-4(R$),(R3) ,#FABSC_BLN 
1E 30 9 3EBE 328 BLBC e 
63 0 1 EC} 95 CMPB #FABSC_BID,FABSB_BID(R3) 
12 12 3ec& 3958 BNEQ 
02 A3 00000016'EF B1 EC6 959 CMP Fl, FABSW_IFI(R3) ; Is this the FAB for this IFAB 
08 EC 960 BNEQ 

ED 961 90$: STATUS SUCCESS 
ED 96 RET 
ED8 3963 99$: STATUS INVBLKTYP 
EDF 3964 100$: RET 
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a ~SBTTL GET_NAM 

GET_NAM == Get and Verify NAM block from Dump. 
Inputs: 

4(AP) = Address of block buffer for NAM block. 
Outputs: 


Block buffer contains NAM block if success, 
BUFFER-4 = 0 if failure, RO = status. 


+ 


Sete Se Ge Ge Ge Ge Ge Ge Ge Se Ge 


GET_NAM:.WORD “M<R2,R3,R4> 
MOVL 4(AP)_R 

GE TREN a-4(R3) , (RS) ,ANAMSC BLN 

cHPB #NAMSC_BID,NAMSB_BID(R3) 

90$: STATUS SUCCESS 


99$: STATUS INVBLKTYP 
100$: RE 
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ARGCNT 

BID 

BLN 

BLN_IDX 

ERR 

BLN 
“FLGS 
v7u 

“BUFF _ID 
“NUMB 
“SIZE 

USERS 
AR 

“BID 


BDBSw 
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BOBSW 
BDB_ 
BLBSC 


Symbol table 
S$B$B 
BSB 
BSL 

BDBSB_ CACHE 


RMS 
ASB$B 
A 

AS 
ASBSC 
AS 
BOBSB 
BOBS$B 
BOBSW 
BOBSW 


SDA 
The 
MES 
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rw 


mmc 
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Symbol table . 873F p= 1986 §3:98:2 ESD ALSRCIRMS MAR: 1 . (38) 
FWASQ_DIR = 15 FWASV_WILDCARD = 18 
FWASQ_DIR = 1 FUASV WILD DIR = 3 
FWASQ_DIRB = 1 FWASV_WILD_SFD1 = 
FWASQ_ = FWASV_WILD yFD = 4 
FWASQ_FLAGS = 0 FWASW_ESCIF = 
FWASQ_LOGNAM = b FWASW_PRO = C 
FWASQ_NAME = FWASW_UCHAR = 44 
FWASQ_NODE = 0D FWASW_XLTSIZ = 4 3 
FWASQ_NODE1 = 1B4 FWADD if R 93 
FUASS NODES = $ 1BC GBD £8 R 2 
FWASQ_NODE = 1¢4 GBD$B8_B1D = 
FWASQ_NODES = 8 8 1¢¢ GBD$B-CACHE_VAL = B 
FWASQ_NODES = 104 GBD$B-FLAGS = A 
FWASQ_NODE = 1D¢ GBD$C-BID = 1 
FWASQ_NODE = 1€4 GBD$C_BLN = 3 
FWASQ_NODES = $ 1 GBDSL_FLINK = 0 
FWASQ_RNS = : 1 GBD$L-LOCK_ID = 14 
FWASQ_SHRF IL = 000001 GBOSL_REL_ADDR s 8 1¢ 
FWASQ_TYPE = 00 ° 17 GBD$L_VBN = 0 of 
FWASQ_VERSI = 000 BASS GBD$L_VBNSEQNUM = 0001 
FWASV_CONCEAL_DEV = 00000039 GBD$V_VALID = 45444 
FWASV_DEVICE = 0000000F GBD$W_NUMB = 01 
FWASV_DEV_UNDER = 00000033 GBD$SW_SIZE = O1A 
FWASV_DFLT_ = 00000038 GBDSW"USECNT = 020 
FWASV_DIR = 000000 3 GBD_CAR 0000984 
FWASV_DIR1 = 000000 GBH O13F2 
FWASV_DIR2 = 4448 1 GBH$B_BID = 00008 
FWASV_DUPOK = 000000 ! GBH$B_BLN = 38 00009 
FWASV_EXP_DEV = 0000001 GBHS$C_BID s 4498 
FWASV_EXP_DI = 44 GBHS$C_BLN = 0000 b28 
FWASV_EXP_NAME = 0000001 GBHSL_DFW_WRITE = 0000004 

EXP = 4444! GBHS$L_GBD_BLNK = 44 94 
FWASV_EXP_ROOT = 00 44 C GBHSL_GBD_END = 0000002C 
FWASV_EXP_TYPE = 00000011 GBHSL_GBD_FLNK = Bhd BS 
FWASV_EXP- VER = 4 O10 GBHS$L~GBD_NEXT = 0000 
FWASV_F ILEF OUND = 00000034 GBHS$L-GBD" START = eae 
FWASV_FNA_PASS = 00000004 GBH$L-GS_S1Z = 00 $ 19 
FWASV_GRPAB = 18 GBHS$L_HIT = 0000003 
F WASV_LOGNAME = 3 GBH$L-LOCK_ID = 00000014 
FWASV_NAME = $ p GBHSL_MISS = $ 38 7 
FWASV_NAM_DVI = 0000 GBHS$L_READ = 0000004 
FWASV_NETSTR = 000 é GBHSL_SCAN_NUM = 00000034 
FWASV_NOCOPY = 00000001 GBHSL-TRC_BLNK = 00000024 
F WASV_NODE = 19 tt aS FLNK = 0 
FWASV-OBJTYPE = 31 GBHSL_USECNT = C 
FWASV_QUOTED = 1A GBHSL_WRITE = $ 44 
FWASV_REMRESULT = 3 GBHSM-CACHE_IN = $ 9) 
FWASV_RLF _PASS = 0000 GBHSM_RLS_IR = 4 
FWASV_ROOT_DIR z A GBH$V"-BLB_ BLOCK = B 
FWASV~SLPRESENT = GBHSV~BLB_DEG s A 
FWASV~ SL s = GBH$V_BLB-ENQ = $ 
FWASV~SYRTAX_CHK = BH$V_BLB” GRANT = 
FWASV_TYP s oC GBH$V-CACRE_IN = 9 
FWASV_ VERSION = 1 GBHS$V~CACHE-OUT = 
FWASV~WC_NAME = 1 GBHS “F = C 
FWASV_WC_ TYPE = 14 GBHS$V"F = D 
FWASV-WC_VER = 13 GBHS$V"F = E 
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Symbol table 
SPL 
B 
DELL 
DUP 
DUPS_SEEN 
“FIRST 


IRBS$V 
IRB$V 
IRBSV 
IRBSV 
IRB$V 


RAS 
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RMS Display RMS Data Structures 16-SEP-1984 01:48:49 VAX/VMS Macro ¥04=00 Page 1 STAC 
Symbol table §-§ eet 83:38:23 YODA SRCIRMS MA MAR . (98) V04- 
IRBSW_SPLIT 2 2 4 NAMSV_WILD_SFD = 1A 
IRBSW ~SRCHECAGS = a5 NAM$V nt{tb SERS = 18 
BSW” = NAMSV-WILD-SFD4 = 1¢ 
R NAMSV-WILD"SFD5 = 1D 
AG R NAMSV“WILD~SEDG = 1E 
4 R NAMSV-WILD-SFD = 1F 
8 R NAMSV-WILD- TYPE = 04 
eeeeeeee =X NAMSV-WILD-UFD = 18 
eeeeeeee =X NAMSV-WILD-VER = 0 
9000AD R M_CAR 00000¢8 R 3 
4A2 R 2 NEW” PAGE aeereeee =X 03 
= OPTSH_ASB a 4 
= OPTS$M~BDB 2 1 
= 00 OPTS$M~BLB = 0 
= 0000001 OPTSM~CCB = 
= 990 02 OPTSM"FCB = 
= 00 9901 T$M_GBD = 9 00 
= 990 oi OPT$M~GBDSUM = 000 
= 0000000 T$M-GBH = 0004000 
= 0000000 OPTSM~ IDX = Q00CeSS 
= 90000009 OPTSM7IFB = 00000002 
= 0000000 OPTSM~IRB = 00000004 
= 00 90004 OPTSH-RJB = 04 9900 
000087C R 03 PT$M-RLB = 00004000 
teeeeeee =X = 03 OPTS “RMSALL = FFFFFFFE 
eeexeeee XX 03 PTSM_TRC = 00080000 
teeeeeee X03 OPTSMcuCe = 00000100 
teeeeeee§ X 03 OPT$V~ASB = 00000006 
aeeeeeee§ KX 03 PT$V~ = 9000004 
00000CD6 R 02 OPT$V“BDBSUM = 99 0005 
= 00000000 T$V~ = 0000 OF 
= 990000 OPT$V~ ~BLBSUM = 00000010 
= 00000 6 OPT$V~CCB = 900 007 
= 900 OPTS$V"FAB = 99 OOA 
= 99 6 OPTS$V—FCB = 00000009 
= 0 O¢ OPTSV—FWA = 999 14 
= 90 9 OPT$V~GBD = 00 99 11 
= 04 OPT$V~GBDSUM = 000 O13 
= 990 0 OPT$V~GBH = 99 i 
= 00000014 OPTS$V~1DX = 0000000 
= 0000 9 7 OPTS$V~IFB = 99 01 
= 6 6 OPT$V~IRB = 2 
2 OPTSV"NAM z 000C 
= 9 9 OPTSV—RAB = 9 8 
= 9 OPT$V~RJB = 1 
= 9 1 OPTS$V-RLB = 99 
= OF OPTS$V—TRC z 6 1 
= : OPT$V—WCB = 6 99 
= 1 OPT$V~XAB = 4 9 
= 1 OPT_CAR 000818 R 
= 1 ORG” TBL 00004¢ R 
: 9 PAGE SIZE Se eeeage 
s 1 PARSE CHR 9000047 ¥ 
= i§ pass acne LIOIMPA Settteta 
2 03 PIOSTRING 00000BE4 a” 
= 00 PRINT keeeeeee x 


STA 
7 v04-00 Page 101 04 
-SEP-1984 :48:49 VAX/VMS Macro . y 
ee ee "OrSEpa]obe Ob:48:68 LepAveRCIAAS MARCI 198) 
Symbol table 
6FB R RMS_IFI_TMP 10 RG 
PRU_TBL 4 SCH” CHR gt 
RAB = ef SHOO_ASB 75D R 
RAT CARS R SHOW"BDB 2p 
plete f R SHOW_BOB_SUM fee 4 
READRe-foe 4EB R SHOW"BLB FSR 
REM TEC 4CC R SHOW_BLB_SUM ee 
ies Sua’ 8 Ha + 
RIBSB BLN ° a8 SHOW” FWA AB R 
RIBS C~BID 2 16 SHOW"GBD_ SUM f 
RJBSC "BID : Snow GBD 135 & 
RJBSC~BLN = 009 SHOW” GB 1s 
RJBSO~CHAN = 00 SHOW IDE, 3 ; 
IBSV-AT = 900000 SHOW" IRAB O00276E R 3 
RIBSV "BI = 00 $0 1 SHOW_MJ poo e333 F ; 
iti = $0000 4 SHOW_NAM O00 sec? & 3; 
ke : HSS coe ST 8 
‘el Bs 8 RE, arte 
LBs = 90000008 * SHOW-RMS_ DIS 0000130¢ Ro OS a 
RL3E8-BLN = $0000008 SHOUTTRACE. 0003885 R03 
Te : ssi te paneett x 
anen : SSS : Site 
RLBSCTUNK = 0000000 SPC CHR 00000464 R 05 
RLBSL LOC = 90000018 I go000¢s1 RO 
RLBSL-OUNER = 00000010 $$$ ACCVIO eteeesae X08 
RUBE -READ = 0000000C 5$$RESIGNAL yeveseve 8 
RLBSU-CONY = $0000004 SYMBOLIZE eteseess X08 
am : BSS ioe saiert at 8 
RUBS Ve : 2090006 TRACE FLAGS 900011 ROS 
RLBSV “PR = 90000008 TRANSCATE.B1TS soon a ® 
RLBSY=P = $000000 TRC$B_BDB_CACHE = 9000002¢ 
RLB$V~TIMER_INPROG = 000 TRCSB_BDB_ CACHE = S0u899 
RLBSV-WAl = $6000000 TRCS$B-BID = 00000008 
RL BSUTP CAG = 00000004 TRCS$B_BLB_FLAGS ~ 00008 
{chee : BDSse HEB RE oe : BSS 
RLB$W- STATUS = 000 i . 5 TRESC"BLN : 009 04 
bee ae Be : HaSsee 
RLV Dea = $0000 TRCSLBDB~SEQ : Oe 
RLSSV"RETURN = 00000 TRCSL~BLB~ADDR = 90000084 
a ar es z TRC$L~BLB~LOCK : : 
are CAR RU = BR 03 TRC$L-BLB~SEQ = 0000005¢ 
% 0 RG TRCSL-BLNR : 
ste 6 R TRCSL_FLNK . 9 
RAS-DESo SRE RG TRCSL RETURN : if: 
RAS btS-TRP BO0015 Re TRESL RETURN : 
RASHANDLER 139F R TRCSL STRUCTURE : o¢ 
1 ® = 
melt a re i 
RMS” 
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TRC$W_BDB_USERS 
TRESU_FUNCTION 


Ma teat 
UCBSC_LENGTH 
wCB 
wCBSB_ACCESS 
WCBS$B_TYPE 
ucBse LENGTH 


cece 

o o 

woww 

PAAA 

espe 

pene 

4) o 

S08 

Se «¢ 

z s 

@ 
o onun 

ODOOOSOOO°O 

SOSSSSSSSSSOSSSSSSoosososoooseso 


SOOOOoCSCOSOOSOOSOSOOOOSOOOOOOSOSOSoOoOO 


oOOoooooooooooo 


oO 

t 

— 
HHHHHHRHHHHhHhHhHhHhHhHhHhHhhhHhe hahahahahaha 


SoOOoOooooooooooooo 
OOOoQoooooooooooe 


$ewwwocceeccecces 


PSECT name Allocation PSECT No. Attributes 

$ y 00000000 <( 8-3 00 ) NOPIC USR CO ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 000000 ( of 1¢( 1.) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
SDADATA 14C ( 5314.) ¢ ( § ) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
RMS $1 $19139-3 ( ) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
LITERALS 343 (1 ses.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
—-RMSLIT 00000421 (¢( 1057.) 5 ( 5.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
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! ; Performance indicators ! 


weeeeceeeoen graseeenanees} 


Phase Page faults CPU Time sa bste- Time 
Initialization 3 00-05 0.58 
Command processing 14 . 4.6 
Pass 119 98 18. 4 
pyane table sort 0 06. 9 16.2 
Pas 654 00:8 ‘ 
Symbo table output i 94 701. 
Psect synopsis output § . 6 :00:00. 
Cross-reference output 8 : :00: 8: 
Assembler run totals 2031 00: " 0:03:30. 


The be york ing sot Limit was 3000 page 

399927 bytes (782 pages) of virtusl memory were used to buffer the intermediate co 
There were 190 pages of symbol table space ol yecetes to hold 3358 non-local and 59 
3991 source Lines were read in Pass 1, produci ng 146 object records in Pass 2. 

69 pages of virtual memory were used to define 68 macros. 
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7 local symbols. 
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Macro Library name Macros defined 
~$g2780uA 8: CSHRLIBIRMS MLB; 1 32 
$255$DUA28: (SDA.OBJJSDALIB.MLB; 1 10 
- 33SDUA 8:CSYS.OBJJLIB.MLB; 7? 
$255$DUA28:(SYSLIBISTARLET.MLB; 2 8 
TOTALS (all Libraries) 57 


3540 GETS were required to define 57 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMS/OBJ=OBJ$:RMS MSRC$:RMS/UPDATE=(ENHS: RMS) +EXECML$/LIB+LIB$: SDALIB/LIB+SHRLIB$:RMS/LIB 
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